result = MsgBox ("Vous venez d'installer le virus Intranet 1.0, merci de tester ce programme et de m'envoyer vos retours sur alzyoic1200@gmail.com, pour le désinstaller, lancez le programme Uninstall Intranet", vbInformation, "Intranet Installer")

Select Case result
Case vbOk
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "http://cubeadventures.16mb.com/fr/Intranet.html"

End Select