Dim userName

'Link this to the first button on the title slide.
Sub GetStarted()
    Initialize 'Hide the stars
    YourName 'Ask for the name
    ActivePresentation.SlideShowWindow.View.Next 'Go to the next slide
End Sub

'GetStarted calls this so no buttons link to this directly.
'This assumes that slides 2 and 3 will have the 4th shape that
'you will want to show when the right answer is chosen.
Sub Initialize()
    ActivePresentation.Slides(2).Shapes(4).Visible = False
    ActivePresentation.Slides(3).Shapes(4).Visible = False
End Sub

'GetStarted calls this to ask for a name.
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
End Sub

'Link this to the button that contains the right answer on each slide.
'Be sure you have used your drawing tools to create the 4th shape
'on each slide.
'Note that this RightAnswer does not automatically go to the next
'slide.
Sub RightAnswer()
    ActivePresentation.SlideShowWindow.View.Slide.Shapes(4) _
        .TextFrame.TextRange.Text = "Good job, " & userName
    ActivePresentation.SlideShowWindow.View.Slide.Shapes(4).Visible = True
End Sub