After a while nobody answeriong my question.I started to write a new code.And this was the result. Dim WshShell, oExec, intwarten intwarten = 15000 WScript.Sleep intwarten Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("C:\Datei.exe") And it works