DIM hSubCollection AS .SubCollection
DIM anObject AS Object

FOR EACH anObject IN hSubCollection
  ...
NEXT

Перечисляет все суб-объекты, включенные в подборку.