Data Type VisualBasic Script

Sub sSub()
    Dim intVar1 As Integer
    Dim intVar2 As Integer
    intVar1 = 5
    intVar2 = intVar1
    intVar1 = 10
    Debug.Print intVar1 'Prints 10
    Debug.Print intVar2 'Prints 5
End Sub