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