DIM hVariantArray AS Variant[]
DIM aVariant AS Variant

FOR EACH aVariant IN hVariantArray
  ...
NEXT

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