DIM aString AS String

FOR EACH aString IN Fonts
  ...
NEXT

Not documented