Dim numCorrect As Integer
Dim numIncorrect As Integer
Dim userName As String
Dim qAnswered As Boolean

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

Sub Initialize()
    Randomize 'ADDED
    numCorrect = 0
    numIncorrect = 0
    qAnswered = False
End Sub

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

Sub RightAnswer()
    If qAnswered = False Then
        numCorrect = numCorrect + 1
    End If
    qAnswered = False
    DoingWell
    'DELETED ActivePresentation.SlideShowWindow.View.Next
End Sub

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

Sub WrongAnswer()
    If qAnswered = False Then
        numIncorrect = numIncorrect + 1
    End If
    qAnswered = True
    DoingPoorly
End Sub

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

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

Sub RandomQuestion() 'ADDED
    Dim first As Integer
    Dim second As Integer
    Dim done As Boolean
    
    done = False
    first = Int(10 * Rnd)
    second = Int(10 * Rnd)
    While Not done
        answer = InputBox("What is " & first & " + " & second & "?")
        If answer = first + second Then
            RightAnswer
            done = True
        Else
            WrongAnswer
        End If
    Wend
End Sub