Using a One-Dimensional Array
'Option Base 1 Sub FavoriteCities() Dim cities(6) As String cities(1) = "Baltimore" cities(2) = "Atlanta" cities(3) = "Boston" cities(4) = "Washington" cities(5) = "New York" cities(6) = "Trenton" MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _ & cities(3) & Chr(13) & cities(4) & Chr(13) _ & cities(5) & Chr(13) & cities(6) End Sub