Microsoft Office Forums - View Single Post - [Solved] Interactive Quiz with Scores at the end?

JohnWilson · 03-07-2016, 09:00 AM

If a correct answer always adds 1

Code:

Sub InitializeScore()
Tally = 0
End Sub
Sub AddToTally()
' this adds 1 to the score
Tally = Tally + 1
End Sub
Sub ShowTally()
MsgBox "Your final score is " & CStr(Tally)
End Sub

With your original code (unless there was more than you posted) 'Points' was always zero and the result would always be zero