'Option Base 1
Sub CityOperator()
Dim cities(6) As String
cities(1) = "Baltimore"
cities(2) = "Atlanta"
cities(3) = "Boston"
cities(4) = "Washington"
cities(5) = "New York"
cities(6) = "Trenton"
Hello cities()
End Sub
Sub Hello(cities() As String)
Dim counter As Integer
For counter = 1 To 6
MsgBox "Hello, " & cities(counter) & "!"
Next
End Sub