VB Snippet - Checking avaliable fonts

VB Code:

Private Sub Form_Click ()
 
Dim I As Integer, Flag As Boolean
 
   For I = 0 To Printer.FontCount - 1
 
      Flag = StrComp (Font.Name,Printer.Fonts(I), 1)
 
      If Flag = True Then
 
         Debug.Print "There is a matching font."
 
         Exit For
 
      End If
 
   Next I
 
End Sub