Option Explicit
Dim MyVar, WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc"
WScript.Sleep 100
MyVar = MsgBox ("Who started the calculator?", 64, "Hello world!")