'Keyliste erstellen
Dim cl_keys As New Collection
cl_keys.Add "Key1"
cl_keys.Add "Key2"
cl_keys.Add "Key3"
cl_keys.Add "Key4"
 
'Collection mit Items und den gelisteten Keys füllen
Dim cl As New Collection
Dim i As Integer, key As String
For i = 1 To cl_keys.Count
   cl.Add Item:="Item" & CStr(i), key:=CStr(cl_keys(i))
Next i
 
'Collection-Items über die "Key-Collection" abfragen
Dim str As String
For i = 1 To cl_keys.Count
   str = cl.Item(cl_keys(i))
Next i