Требуется объект Powerpoint VBA с ошибкой 424 во время выполнения

Question

Я пытаюсь создать простую PowerPoint с некоторым VBA, чтобы сделать его интерактивным тестом.

Sub CorrectAnswer()
Points.Caption = (Points.Caption) + 10
Output = MsgBox("Your answer is correct, well done!", vbOKOnly, "Correct     Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub IncorrectAnswer()
Points.Caption = (Points.Caption) - 0
Output = MsgBox("Your answer is wrong.", vbOKOnly, "Wrong Answer")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub FIB1()
    Dim answer As String

    answer = InputBox(Prompt:="Type your code below")
    If answer = "test response" Then
        CorrectAnswer
    Else
        IncorrectAnswer
    End If
    ActivePresentation.SlideShowWindow.View.Next
End Sub


Sub Reset()
Points.Caption = 0
ActivePresentation.SlideShowWindow.View.Exit
End Sub

В области Sub FIB1 я получаю проблемы. Это дает мне ошибку времени выполнения «424» о том, что объект не указан. То, что я хочу сделать, это задать вопрос, и они нажимают на кнопку / ссылку на слайде, и это открывает диалоговое окно, где вы можете ввести свой ответ. В этот момент они нажимают кнопку ОК, и если они набрали его правильно, они получают правильный ответ. Если нет, конечно, они получают неправильный ответ.

Предполагается, что это тип установки с заполнением пробела, а не стиль с множественным выбором, который у меня также есть и работает нормально. Кажется, это единственная область, которая вызывает у меня проблему. Я не знаю достаточно VBA, чтобы увидеть, что я делаю неправильно, и большая часть этого кода пришла от просмотра видео на YouTube, чтобы собрать его вместе.

Может кто-нибудь помочь, пожалуйста?