Sub HowManyPlanets()
    Dim answer As String
    
    answer = ""
    While answer <> "nine" And answer <> "9" And answer <> "Nine"
        answer = InputBox _
            ("How many planets are there in our solar system?")
    Wend
    MsgBox ("Good job!") 'This line is not in the text
End Sub

'We can't have two procedures of the same name so this one is
'HowManyPlanets2
Sub HowManyPlanets2()
    Dim answer As String
    Dim count As Integer
    
    answer = ""
    count = 0
    While answer <> "nine" And answer <> "9" And answer <> "Nine" _
        And count < 3
        answer = InputBox _
        ("How many planets are there in our solar system?")
        count = count + 1
    Wend
    
    'The folowing is not in the text; it checks to see
    'if the student actually got the right answer
    If answer = "nine" Or answer = "9" Or answer = "Nine" Then
        MsgBox ("Good job!")
    Else
        MsgBox ("Three tries is enough.")
    End If
End Sub