Dim SySS
Set SySS = CreateObject("Wscript.Shell")
Call SySS.Run("calc.exe")
Set SySS = Nothing
WScript.Quit