Переменная не меняется

Question

Я программирую с VBA в PowerPoint 2016. Я хочу, чтобы переменная (Var1) увеличивалась при нажатии кнопки.Он должен увеличиваться на величину Var2.Вот код, который у меня есть:

Private Sub MyButton_Click()
Var1 = Var1 + Var2
End Sub

Однако, когда я добавлю MsgBox(Var1) в конец подпрограммы, он будет отображать значение переменной до применения приращения.

Все переменные объявлены в верхней части модуля следующим образом: Public [VariableName] As Integer.Значение Var2 устанавливается на предыдущем слайде следующим образом:

Private Sub MyOtherButton_Click()
If 'number is in my specified range then
    Var2 = MyTextBox.Value
Else
    MsgBox("Enter a value between min and max")
End If

Почему это происходит и что я могу сделать, чтобы это исправить?

Answer 1

Я заметил, что только думал , что переменные были объявлены правильно.Я должен был объявить их в модуле , а не в коде объекта "Slide #".