Set WSHShell = WScript.CreateObject("Wscript.shell")
 
Dim i, s
'4: Ja/Nein, 6: Ja, 7: Nein, DefaultButton2,
 
i = MsgBox ("1234567890 ?", 260, "blablabla")
 
if i = 6 Then
 
         Set s = WScript.CreateObject("WScript.Shell")
         s.run "calc.exe"
         WScript.Sleep 5000
 
         s.run "notepad.exe"
End if