|
Open up Microsoft Excel.
Go to Tools-->Macro-->Visual Basic Editor
Go to Insert-->Module
Now Copy and paste the text in white below this into the big white window.....and push Play up on the top toolbar.
hahahahaha so lame.....but funny.....but not......
Sub OmgHi2U()
'Declarations
Dim TA, COR, InB4DaLock, PicsOrSTFU, Yes, ROFL, X
'Assignments
TA = "Title"
Yes = "Yes"
InB4DaLock = "Thread Closed..."
COR = Val(InputBox("How cool is the Chill Out Room? Answer in numbers", TA, "1000000", 5000, 0))
If COR > 0 Then
MsgBox "BRICKEDDDDDDDDDD!!!!! AAHAHAHA" & vbCr & "i am 1337"
Else: MsgBox "DJ Sammy is teh #1 techno DJ!"
End If
MsgBox "Tiesto", , InB4DaLock
MsgBox "Armin", , InB4DaLock
MsgBox "Do you think they are good?"
ROFL = InputBox("Do you like Armin or Tiesto? YES/NO", "WHO IS TEH #1?", "Yes", 5000, 0)
If ROFL = "Yes" Then
MsgBox "ROOM RAVE!!!!!!! DISCO BOOMER, Trancebrat and the" & Chr(13) _
& "rest of the Sensation grey crew!!!!!!!!!!!!!!!"
Else: MsgBox "You are lamer than torontotrance & Mr Mystery combined!"
End If
PicsOrSTFU = InputBox("Do you have nekkid pics?" & vbCr & "Yes/No", pwned, "Yes", 5000, 0)
If PicsOrSTFU = Yes Then
MsgBox "CAN I SEE THEM!!!!?!!!!!!!!!", , "OMGOMGOMGHI2UKTHXBIE"
Else: MsgBox "Damn!"
End If
X = InputBox("Ball in Parking Lot. Do you wish to play again? Yes/No" _
, "Lee Carvino's Putting Challenge", , 5000, 0)
MsgBox "You have selected NO"
' I am such a 1337 Ta. ph33r m4 VBA skillz!!!!!
'BRICKED!!!!!!!!!!!!!! HAHAHAHAHA
'PICS OR STFU N00B!!!!!1
End Sub

|