Dim userName

Sub YourName()
    userName = InputBox(prompt:="What is your name?")
End Sub

Sub RightAnswer()
    MsgBox ("Good job, " & userName)
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub WrongAnswer()
    MsgBox ("Try to do better, " & userName)
End Sub