Option Explicit Public Idiot As Boolean Public NormalPerson As Boolean Public OKPerson As Boolean Public Determine As String Sub Form_Load() Determine = InputBox("In binary, what is the value of 111111111111111?", "Binary Joke") If Determine = "32767" Then NormalPerson = True Idiot = False OKPerson = False MsgBox "Your normal. You earned a 100. Yes a 1 followed by two big fat goose eggs. The answer is 32,767. Your answer was " & Determine & ".", vbOKOnly, "Your a Normal Person" Unload Me ElseIf Determine = "32768" Then NormalPerson = False Idiot = False OKPerson = True MsgBox "Your OK. You earned a 75. Yes a 7 followed by a 5, also the value of 3 quarters. The answer is 32,767. Not " & Determine & ". But you were close.", vbOKOnly, "Your an OK Person" Unload Me Else NormalPerson = False OKPerson = False Idiot = True MsgBox "You Fail. You earned a 0. Yes a big fat goose egg. The answer is not going to reveal itself you know. Not " & Determine & ".", vbOKOnly, "Your a Binary Idiot" Call Form_Load End If End Sub
Thats basically the entire code. I want suggestions on how to improve it. I do not want flame. Also, judge this on a scale of 1 - 10, 10 being the most, on how much pain this program caused your head.