Const WND_CAPTION = "Untitled - Notepad" 'window caption of the application you want to activate

Set sh = CreateObject("WScript.Shell")
sh.AppActivate WND_CAPTION