Tonight at Kick Butt

[snortingmarmots]

Come on out to Kick Butt Coffee tonight for blues brought to you by
Shane Chambers and Chris Mayer.

KICK BUTT BLUES
Friday, February 11th, 2011
9:00pm-1:00am
$5

Wondering what you can eat while you dance? Check out Kick Butt
Coffee’s online menu: www.kickbuttcoffee.com/menu.htm

Please, no outside food or drink. Take advantage of the fantastic
food, coffee, alcoholic and non-alcoholic beverages available at Kick
Butt Coffee - located at 5775 Airport Blvd. #725, 78752 Kick Butt
Blues is a joint venture between Kick Butt Coffee and the Blues
Association of Austin.

----------------------------------------------------------------

And here is the part of the message where I treat you to something
random:

Public Function GenerateRandomness() as String

Dim i as Integer
Dim TestJoke as String
Dim WebPage as HTMLDocument
Set WebPage = WebBrowser.Document
Dim Internet as Collection
Dim HumorValue as Boolean
Dim FoundJoke as Boolean = False

Randomize

GetAllWebPages(Internet)

For Each WebPage in Internet
TestJoke = WebPage.Document.Body.InnerText
HumorValue = AskJohnnyFive(TestJoke)
If HumorValue = True And HaveUsedJoke(TestJoke) = False Then FoundJoke
= True
Next

If FoundJoke = False Then

Do Until FoundJoke = True

For i = 1 to Int(Rnd * 5000)
Mid(TestJoke, i, 1) = Chr(Abs(Rnd * 255))
Next i

HumorValue = AskJohnnyFive (TestJoke)
If HumorValue = True And HaveUsedJoke(TestJoke) = False Then FoundJoke
= True

Loop

End If

GenerateRandomness = TestJoke

End Function