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