DIM hVariantArray AS Variant[]
DIM aVariant AS Variant

FOR EACH aVariant IN hVariantArray
  ...
NEXT

Enumerates each element stored in the array.