Set objShell = CreateObject("WScript.Shell")

objShell.Run "notepad c:\oui.txt"
Do Until objShell.AppActivate("Notepad") = True 
    Wscript.Sleep 100
Loop
'Wscript.Sleep 250
msgbox "Hello World"
objShell.AppActivate "Mozilla Firefox"