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