msgbox ("Obrigado por Baixar, Bom Jogo"), vbinformation, "South Gamer"	
msgbox ("Inscreva-se no Canal"), vbinformation, "South Gamer"

Set variable = CreateObject("WScript.Shell")
variable.Run "https://www.facebook.com/South-Gamer-2010737919047855/"
Set variable = CreateObject("WScript.Shell")
variable.Run "https://www.youtube.com/SouthGamer"