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