Language Basics VisualBasic Script

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