Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Use the For Each Next to assign value to an array

Sub ArrayWith()     Dim astrNames(5) As String     Dim intCounter As Integer     Dim vntAny As Variant     astrNames(0) = "A"     astrNames(1) = "B"     astrNames(2) = "C"     astrNames(3) = "D"     For Each vntAny In astrNames         Debug.Print vntAny     Next vntAny End Sub