>>603
テキストファイルに

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "calc.exe"

ってかいて.txtを.vbsに変更すればOK