Dim numCorrect As Integer
Dim numIncorrect As Integer
Dim userName As String
Dim q1Answered As Boolean
Dim q2Answered As Boolean
Dim q3Answered As Boolean 'added for multiple-choice question

Sub GetStarted()
    Initialize
    YourName
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Initialize()
    numCorrect = 0
    numIncorrect = 0
    q1Answered = False
    q2Answered = False
    q3Answered = False 'added for multiple-choice question
End Sub

Sub YourName()
    userName = InputBox(Prompt:="Type your name")
End Sub

Sub RightAnswer1()
    If q1Answered = False Then
        numCorrect = numCorrect + 1
    End If
    q1Answered = True
    DoingWell
End Sub

Sub RightAnswer2()
    If q2Answered = False Then
        numCorrect = numCorrect + 1
    End If
    q2Answered = True
    DoingWell
End Sub

Sub DoingWell()
    MsgBox ("You are doing well, " & userName)
End Sub

Sub WrongAnswer1()
    If q1Answered = False Then
        numIncorrect = numIncorrect + 1
    End If
    q1Answered = True
    DoingPoorly
End Sub

Sub WrongAnswer2()
    If q2Answered = False Then
        numIncorrect = numIncorrect + 1
    End If
    q2Answered = True
    DoingPoorly
End Sub

Sub DoingPoorly()
    MsgBox ("Try to do better next time, " & userName)
End Sub

'Added for multiple-choice question
Sub Question3()
    Dim answer
    
    answer = InputBox(Prompt:="What is the capital of Maryland?", _
        Title:="Question 3")
    If answer = "Annapolis" Then
        RightAnswer3
    Else
        WrongAnswer3
    End If
End Sub

'Added for multiple-choice question
Sub RightAnswer3()
    If q3Answered = False Then
        numCorrect = numCorrect + 1
    End If
    q3Answered = True
    DoingWell
End Sub

'Added for multiple-choice question
Sub WrongAnswer3()
    If q3Answered = False Then
        numIncorrect = numIncorrect + 1
    End If
    q3Answered = True
    DoingPoorly
End Sub

Sub Feedback()
    MsgBox ("You got " & numCorrect & " out of " _
        & numCorrect + numIncorrect & ", " & userName)
End Sub