Const wshRunning = 0, wshFinished = 1, wshFailed = 2
Dim wshShell
Set wshShell = CreateObject("WScript.Shell")
Do Until 1 + 1 = 1 ' warten auf Wunder, läuft bis in alle Ewischkeit
Call ExecProg(wshShell.Exec("C:\Programme\Mozilla Firefox\firefox.exe"))
Loop
Sub ExecProg(wshExec)
Do
Wscript.Sleep 1000 ' eine sec nix tun
Loop While wshExec.Status = wshRunning
End Sub