Option Explicit

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32.dll" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

'--------------------------------------------------------------------------------
'Function: {fnIsFont}
'--------------------------------------------------------------------------------
Public Function fnIsFont(strPatchNameFont As String) As Boolean
    Dim fso As New FileSystemObject
    Dim i As Long
    If fso.FileExists(strPatchNameFont) = True Then
        i = RemoveFontResource(strPatchNameFont) '- DELETE
        i = AddFontResource(strPatchNameFont)    '- ADD
        If i > 0 Then
            fnIsFont = True
        Else
            fnIsFont = False
        End If
    Else
        fnIsFont = False
    End If
    Set fso = Nothing
End Function