'Declares a integer variable and reserves memory to accommodate it
Dim As Integer baseAge = 10
'Define a variable that has static storage
Static As String person
person = "Amy"
'Declare variables that are both accessible inside and outside procedures
Dim Shared As String friend
friend = "Susan"
Dim Shared As Integer ageDiff = 3
Dim Shared As Integer extraYears = 5

Sub test()
    'Declares a integer variable and reserves memory to accommodate it
    Dim As Integer baseAge = 30
    'Define a variable that has static storage
    Static As String person
    person = "Bob"
    'Declare a local variable distinct from a variable with global scope having the same name
    Static As Integer extraYears = 2

    Print person; " and "; friend; " are"; baseAge; " and"; baseAge + ageDiff + extraYears; " years old."
End Sub

test()
Print person; " and "; friend; " are"; baseAge; " and"; baseAge + ageDiff + extraYears; " years old."
Sleep