DIM aString AS String

FOR EACH aString IN Fonts
  ...
NEXT

Перечисляет семейства шрифтов, установленных в вашей системе.