Dim userName As String

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

Sub Initialize()
    ActivePresentation.Slides(2).Shapes(4).Visible = False
    ActivePresentation.Slides(3).Shapes(4).Visible = False
End Sub

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

Sub RightAnswerTwo()
    ActivePresentation.Slides(2).Shapes(4).Visible = True
End Sub

Sub RightAnswerThree()
    ActivePresentation.Slides(3).Shapes(4).Visible = True
End Sub