For Each Collection (gb)
Dim hCollection
As Collection
Dim aVariant
As Variant
For Each aVariant
In hCollection
...
Next
Enumera cada valor armazenado na coleção.
Note que elementos são enumerados na ordem que eles foram inseridos. Mas se você substituir o valor de uma chave já inserida, então a ordem é mantida.