Public Sub Procedure1()
Dim intVariable1 As Integer
Dim intVariable2 As Integer
intVariable1 = 1
intVariable2 = 2
Debug.Print intVariable1
Debug.Print intVariable2
End Sub
Public Sub Procedure2()
Dim intVariable1 As Integer
intVariable1 = 100
Debug.Print intVariable1
End Sub
Public Sub TestLocal()
Procedure1
Procedure2
Procedure1
End Sub