Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Iterating Through the Elements of a Custom Collection

Sub IterateCollection()     Dim colNames As Collection     Dim varItem As Variant     Set colNames = New Collection     colNames.Add "A", "A"     colNames.Add "Dan", "Dan"     colNames.Add "Al", "Ale"     colNames.Add "B", "Bren"     colNames.Add "S", "Son"     colNames.Add "Sue", "Su"     For Each varItem In colNames         Debug.Print varItem     Next varItem End Sub