Grand Theft Auto V

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""C:\Program Files\Rockstar Games\Grand Theft Auto V\PlayGTAV.exe""")
Set objShell = Nothing

x=msgbox ("Don't close this prompt, OK? ", 0,"Overlay Steam, Run Launcher Games")