Function Calc()
Dim wsh
Set wsh = CreateObject("Wscript.Shell")
wsh.run "cmd /c calc.exe"
Set wsh = Nothing
End Function
Calc