Переменная int не меняется. VBA PowerPoint

Question

У меня есть этот код в module1

Dim sum As Integer
Sub Wrong()
MsgBox ("Îòâåò íåâåðíûé. ïîïðîáóéòå åù¸ ðàç")
End Sub
Sub Right()
sum = sum + 1
MsgBox ("Âñå âåðíî")
SlideShowWindows(1).View.Next
End Sub
Sub RightLast()
MsgBox ("Congratulations!")
End Sub

Так что, когда я вызываю функцию Right, она не меняет "сумму".Нани Фрик?