実行

Dim WSH
Set WSH = CreateObject("WScript.Shell")
WSH.Run "notepad",0,true