Use this code to find out if a specific font exists on the end users system.

===========================================================
Public Function FontExists(FontName As String) As Boolean
'***********************************************
'PURPOSE: Determine if a font exists on a system
'PARAMETER: FontName = NameofFont
'RETURNS: True if font exists, false otherwise
'EXAMPLE:
' If FontExists("Verdana") then
' Text1.FontName = "Verdana"
' End If
'***********************************************
Dim oFont As New StdFont
Dim bAns As Boolean

oFont.Name = FontName
bAns = StrComp(FontName, oFont.Name, vbTextCompare) = 0
FontExists = bAns

End Function