Dim numCorrect
Dim userName

Sub Doing(doingHow As String)
    MsgBox ("Your are doing " & doingHow & ", " & userName)
End Sub

Sub HowAmIDoing()
    If numCorrect > 10 Then
        Doing ("superbly")
    ElseIf numCorrect > 8 Then
        Doing ("well")
    ElseIf numCorrect > 5 Then
        Doing ("OK")
    ElseIf numCorrect > 3 Then
        Doing ("poorly")
    Else
        Doing ("very poorly")
    End If
End Sub

Sub YourName()
    Dim done As Boolean
    
    done = False
    While Not done
        userName = InputBox(prompt:="Type your name", _
            Title:="Input Name")
        If userName = "" Then
            done = False
        Else
            done = True
        End If
    Wend
    ActivePresentation.SlideShowWindow.View.Next
End Sub

'Phony procedure to get a score
Sub GetScore()
    score = InputBox("Type a score between 0 and 12")
    If score >= 0 And score <= 12 Then
        numCorrect = score
        ActivePresentation.SlideShowWindow.View.Next
    Else
        MsgBox ("The score must be a number between 0 and 12")
    End If
End Sub