Set shell=CreateObject("wscript.shell")

'Dim shl
'Set shl = CreateObject("Wscript.Shell")
'Call shl.Run("""chrome.exe""")
'Set shl = Nothing
'WScript.Quit

msgbox "Press OK to run the Calculator"
Set shell=CreateObject("wscript.shell")
Shell.Run("calc.exe")
Shell.Run("chrome.exe")