'This file puts a symbol by each menu item to show that it has
'been completed
Dim userName As String

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

Sub Initialize()
    ActivePresentation.Slides(2).Shapes(6).Visible = False
    ActivePresentation.Slides(2).Shapes(7).Visible = False
    ActivePresentation.Slides(2).Shapes(8).Visible = False
End Sub

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

Sub ReturnToMenuFromPart1()
    ActivePresentation.Slides(2).Shapes(6).Visible = True
    JumpToMenu
End Sub

Sub ReturnToMenuFromPart2()
    ActivePresentation.Slides(2).Shapes(7).Visible = True
    JumpToMenu
End Sub

Sub ReturnToMenuFromPart3()
    ActivePresentation.Slides(2).Shapes(8).Visible = True
    JumpToMenu
End Sub

Sub JumpToMenu()
    ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End Sub

Sub RightAnswer()
    DoingWell
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub DoingWell()
    MsgBox ("You are doing well, " & userName)
End Sub

Sub WrongAnswer()
    DoingPoorly
    ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub DoingPoorly()
    MsgBox ("Try to do better next time, " & userName)
End Sub