Sub CheckAnswer()
Dim CurrentSlideNo As Integer
CurrentSlideNo = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
If UCase(ActivePresentation.Slides(CurrentSlideNo).Shapes(“AA”).OLEFormat.Object.Value) = UCase(ActivePresentation.Slides(CurrentSlideNo).Shapes(“CA”).TextFrame.TextRange) Then
MsgBox “Τέλεια! Απάντησες σωστά!”
ActivePresentation.SlideShowWindow.View.Next
Else
MsgBox “Ουπς!Προσπάθησε ξανά!”
End If
End Sub