DIM hSubCollection AS .SubCollection
DIM anObject AS Object

FOR EACH anObject IN hSubCollection
  ...
NEXT

Enumerates all sub-objects included in the collection.