Create an Array, assign value and use Loop to show its value
Sub aSub() Dim cities(3) As String Dim city As Variant cities(0) = "0" cities(1) = "A" cities(2) = "B" cities(3) = "C" For Each city In cities MsgBox city Next End Sub