Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Using the Array Function

Sub CarInfo()     Dim auto As Variant     auto = Array("Ford", "Black", "1999")     MsgBox auto(2) & " " & auto(1) & ", " & auto(3)     auto(2) = "4-door"     MsgBox auto(2) & " " & auto(1) & ", " & auto(3) End Sub