Dim delayer Set delayer = CreateObject("WScript.Shell") ' Wscript.sleep 1000 delayer.Run """C:\Program Files (x86)\AutoTiny\AutoTiny.exe""",1,False ' Set delayer = Nothing ' Wscript.quit