You left out the Public Tally I think then
Code:
Public Tally as Integer
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