Public Sub TestLocal1() Dim intVariable1 As Integer intVariable1 = intVariable1 + 1 Debug.Print intVariable1 End Sub