For Each Collection (gb)
Dim hCollection
As Collection
Dim aVariant
As Variant
For Each aVariant
In hCollection
...
Next
Enumerates each value stored in the collection.
Note that elements are enumerated in the order they were inserted. But if you replace the value of an already inserted key, then the order is kept.