DIM aString AS String

FOR EACH aString IN Fonts
  ...
NEXT

Enumerates the font families installed on the system.