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.