DIM hDateArray AS Date[]
DIM aDate AS Date

FOR EACH aDate IN hDateArray
  ...
NEXT

Перечисляет каждый элемент, сохраненный в массиве.