DIM hShortArray AS Short[]
DIM anInteger AS Integer

FOR EACH anInteger IN hShortArray
  ...
NEXT

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