Dim userName As String
Dim userGuess As String
Dim userClue

Sub GetStarted()
    With ActivePresentation.Slides(5).Shapes(2).TextFrame.TextRange
        .Paragraphs(1).Text = "Eye Color:" & Chr$(13)
        .Paragraphs(2).Text = "Hair Color:"
    End With
    ActivePresentation.Slides(5).Shapes(7).Visible = False
    YourName
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub YourName()
    userName = InputBox(prompt:="Type your name", _
        Title:="Input Name")
End Sub

Sub EyeColor()
    userClue = InputBox(prompt:="What is the eye color?")
    With ActivePresentation.Slides(5).Shapes(2).TextFrame.TextRange
        .Paragraphs(1).Text = "Eye Color: " & userClue & Chr$(13)
        If userClue = "blue" Then
            .Paragraphs(1).Words(4).Font.Color.RGB = vbBlue
        ElseIf userClue = "green" Then
            .Paragraphs(1).Words(4).Font.Color.RGB = vbGreen
        End If
    End With
End Sub

Sub HairColor()
    userClue = InputBox(prompt:="What is the hair color?")
    With ActivePresentation.Slides(5).Shapes(2).TextFrame.TextRange
        .Paragraphs(2).Text = "Hair Color: " & userClue
        If userClue = "blonde" Then
            .Paragraphs(2).Words(4).Font.Color.RGB = vbYellow
        ElseIf userClue = "black" Then
            .Paragraphs(2).Words(4).Font.Color.RGB = vbBlack
        End If
    End With
End Sub

Sub Guess()
    userGuess = InputBox(prompt:="Who did it?")
    If userGuess = "DeeDee" Then
        ActivePresentation.Slides(5).Shapes(7).Visible = True
        MsgBox ("You are right, " & userName & _
            ". Would you like a piece of pie?")
        ActivePresentation.SlideShowWindow.View.GotoSlide (1)
    ElseIf userGuess = "BeeBee" Then
        MsgBox ("Try again and check the eye color.")
    ElseIf userGuess = "CeeCee" Then
        MsgBox ("Try again and check the hair color.")
    Else
        MsgBox ("Try again")
    End If
End Sub