Public FriendliScore, GeneroScore, HonestyScore As Integer
Sub Initialise()
'Set all scores to zero and go to next slide
FriendliScore = 0
GeneroScore = 0
HonestyScore = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub AddFriendli()
FriendliScore = FriendliScore + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub AddGenero()
'Add one to Generosity score and go to next slide
GeneroScore = GeneroScore + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub AddHonesty()
'Add one to Honesty score and go to next slide
HonestyScore = HonestyScore + 1
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Display()
'Show the results in a pop-up message box
MsgBox ("Friendliness = " & FriendliScore & " Generosity = " & GeneroScore & " Honesty = " & HonestyScore)
End Sub