Back To Als Site
Back to Al's Text Humor Page

Programmer Excuse Sub

Private Function getProgrammerExcuse() As String

Dim myExcuses(1 to 21) As String

myExcuses(1) = "Did you check for a virus on your system?",
myExcuses(2) = "Didn't I fix that already?",
myExcuses(3) = "Even though it doesn't work, how does it feel?",
myExcuses(4) = "Has the operating system been updated?",
myExcuses(5) = "How is that possible?",
myExcuses(6) = "I can't test everything!",
myExcuses(7) = "I haven't touched that module in weeks!",
myExcuses(8) = "I thought I fixed that.",
myExcuses(9) = "I'm almost ready.",
myExcuses(10) = "It must be a hardware problem.",
myExcuses(11) = "It will be done in no time at all.",
myExcuses(12) = "It worked yesterday.",
myExcuses(13) = "It works, but it's not been tested.",
myExcuses(14) = "It's already there, but it has not been tested.",
myExcuses(15) = "It's just some unlucky coincidence.",
myExcuses(16) = "It's never done that before.",
myExcuses(17) = "I've never heard about that.",
myExcuses(18) = "Must be a virus.",
myExcuses(19) = "Of course, I just have to do these small fixes.",
myExcuses(20) = "Oh, that? It's a feature.",
myExcuses(21) = "Probably user error.",
myExcuses(22) = "Somebody must have changed my code.",
myExcuses(23) = "That's not a bug, it's an undocumented feature.",
myExcuses(24) = "There is something wrong in your test data.",
myExcuses(25) = "This can't do that!",
myExcuses(26) = "Well, the program needs some fixing.",
myExcuses(27) = "What did you type in wrong to get it to crash?",
myExcuses(28) = "Where were you when the program blew up?",
myExcuses(29) = "Why would you want to do it that way?",
myExcuses(30) = "You can't use that version on your system.",
myExcuses(31) = "You must have the wrong executable.",
myExcuses(32) = "Your machine must be broken."

Dim randomChoice As New Random(UBound(myExcuses))
Dim iRandomChoice As Integer = randomChoice.Next()

Return myExcuses(iRandomChoice)

End Function