Dim D As New Multi.Dictionary
D.UniqueKeys = False
'Fill dictionary with some data
D("Peter") = 12
D.Add "Alex", 2534
D.Add "Alex", 2535
D.Add "Alex", 14
Dim I As Long, Keys()
'Get dictionary Keys
Keys = D.Keys
'Loop through Keys array
For I = 0 To UBound(Keys)
Debug.Print "Key", I, Keys(I)
Next
Dim Items()
'Get dictionary Items
Items = D.Items
'Loop through Items array
For I = 0 To UBound(Items)
Debug.Print "Item", I, Items(I)
Next
' output:
Key 0 Alex
Key 1 Peter
Item 0 2534
Item 1 2535
Item 2 14
Item 3 12 |