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

Sub RandomNum()
    MsgBox Int(10 * Rnd)
End Sub

Sub RandomQuestion()
    Dim first As Integer
    Dim second As Integer
    first = Int(10 * Rnd)
    second = Int(10 * Rnd)
    answer = InputBox("What is " & first & " + " & second & "?")
    If answer = first + second Then
        DoingWell
    Else
        DoingPoorly
    End If
End Sub

Sub DoingWell()
    MsgBox ("Good job")
End Sub

Sub DoingPoorly()
    MsgBox ("Try to do better")
End Sub