Some games (mostly that require a launcher) have a problem where you go "in-game" and then go back to "Online" a few seconds later.
This is the code needed for Notepad:
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""INSERT THE EXE DIRECTORY HERE, FOR EXAMPLE c:\Program Files (x86)\Hearthstone\Hearthstone Beta Launcher.exe """)
Set objShell = Nothing
x=msgbox ("Don't close this prompt, OK? ", 0,"Overlay Steam, Run Launcher Games")