result = MsgBox ("Merci d'avoir utilisé mon virus :), n'hésitez pas à visiter mon site web : http://cubeadventures.16mb.com/fr/", vbInformation, "Intranet Uninstaller")