I agree about the pranks that could cause massive data loss, and I'm not up for that... But hey, what's life without a little fun?

BTW, for you newbie bandits out there, here is some more source you will find of interest, for your little pranks etc

Code:
Sub Main()
Dim X
Do

X = Msgbox("Do you like S Club 7? Cmon now, don't lie!", vbYesNo +  vbdefaultButton1 + vbQuestion, "Do you?")

Loop until X = vbYes
x = Msgbox("Nice 1!", vbOKOnly + vbExclamation, "Nice 1!")
end
End Sub
I will post more amusing newbie code sploits when i get the chance... or maybe not.
Laterz

REM