Sub RightAnswer(oshp As Shape)
    If qAnswered = False Then
           numCorrect = numCorrect + 1
         count = count + 1
    rayResult(count) = oshp.TextFrame2.TextRange
    End If
    qAnswered = False
    'MsgBox "Your doing well, " & userNameType
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub WrongAnswer(oshp As Shape)
    If qAnswered = False Then
        numincorrect = numincorrect + 1
                 count = count + 1
    rayResult(count) = oshp.TextFrame2.TextRange
    End If
    qAnswered = False 'if giving answer change back to True
    'MsgBox "Try to do better next time, " & userNameType
    ActivePresentation.SlideShowWindow.View.Next
End Sub