VB гиперссылка

Question

Я написал код ниже, но он не работает.Кто-то может указать на ошибку для меня?

Private Sub CommandButton1_click()
   If Slide1.m.Text = g Then
      ActivePresentation.SlideShowWindow.View.GotoSlide 3
   ElseIf Slide1.m.Text = h Then
     ActivePresentation.SlideShowWindow.View.GotoSlide 4
   Else
     ActivePresentation.SlideShowWindow.View.GotoSlide 1
   End If
End Sub

Answer 1

Согласно моему комментарию выше, вы пропускаете кавычки в операторах if.

Private Sub CommandButton1_click()
   If Slide1.m.Text = "g" Then
      ActivePresentation.SlideShowWindow.View.GotoSlide 3
   ElseIf Slide1.m.Text = "h" Then
     ActivePresentation.SlideShowWindow.View.GotoSlide 4
   Else
     ActivePresentation.SlideShowWindow.View.GotoSlide 1
   End If
End Sub