Что касается чтения текстового поля на текущем слайде в VBA

Я новичок в VBA, и у меня есть вопрос о чтении текстового поля на текущем слайде в презентации PowerPoint в VBA. У меня есть код, но он не работает, и я не знаю, как отлаживать его в режиме презентации. Я был бы признателен за любое приветствие, которое вы можете мне подарить, поскольку это действительно важно. Спасибо!

PS: я работаю на Mac

Sub answer()
    Dim myInput As String
    Dim sld As Slide
    Set sld = Application.ActiveWindow.View.Slide
    myInput = sld.Shapes(4).TextFrame.TextRange.Text
    A = InputBox(prompt:="Your Answer:")
    MsgBox (myInput)
    If A = myInput Then
        MsgBox ("Correct!")
        ActivePresentation.SlideShowWindow _
        .View.GotoSlide Int(Rnd * _
        ActivePresentation.Slides.Count) + 1
    Else
        MsgBox ("Sorry, try again...")
    End If
End Sub