Contour Enthusiasts Group Archives Forums General Troubleshooting Sheared Bolt On Shift Mechanism On Trans X

Use the following function sparingly, and only in cases of emergency:

************************************************
Public Function funcLameExcuse()

Dim aFavFemale
Dim aFavPlace
Dim i
Dim x

aFavFemale = Array("Wife", "Mother", _
"Grandmother", "Aunt", "Sister")

aFavPlace = Array("Church", "Bingo", _
"Hometown Buffet")

Randomize
i = Int((UBound(aFavFemale) + 1) * Rnd)
x = Int((UBound(aFavPlace) + 1) * Rnd)

MsgBox "This is my " & aFavFemale(i) & "." & _
" She was on her way to " & aFavPlace(x) & _
" when the transmission just stopped working" & _
", and stranded her in front of a biker bar!"

End Function
************************************************

(Be sure to bring a women resembling aFavFemale(i), or things could get embarrassing!)

OH MAN I MUST BE BORED!!!!