Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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