Quote:
Originally Posted by Amail
|
...or, if you tend towards more complicated macaronis..
Sub Tabs_Spewinator(trigger As String)
Dim c As Integer
Dim resp As String
Select Case trigger
Case "Dow is going up"
resp = "You boyz will never understand"
Case "Life is good"
resp = "When will you learn you're just a pawn"
Case "I'm optomistic about the future"
resp = "I've been telling you for 10 years, Armageddon is just around the corner"
End Select
For c = 1 To 10
Print: resp
Next c
End Sub