|
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
---------------------------------------------------------------------
---------------------------------------------------------------------
---------------------------------------------------------------------
hehehehe i've just started learning VBA (Visual Basic for Applications) in Excel for one of my classes
If you are really bored and want to see this little macro run, open up Microsoft Excel, Go to Tools --> Macro --> Visual Basic Editor
Next, copy and past all the code i just posted above. Finally, to see it all in action and answer some lame (read:funny) questions, push the play button - it looks like the triange play sign off a walkman, it's up the top on the line of icons
Last edited by A.J. on Aug-18-2004 at 10:57
|