بررسی وجود و نصب فونت در ویندوز

گاهی اوقات پس از نصب برنامه مان در ویندوزی دیگر با در صورت عدم نصب فونت با مشکلات زیادی روبرو خواهیم شد که این موضوع با بررسی در ابتدای ورود به برنامه قابل حل میباشد
Dim i As Integer
Dim Flag As Boolean
Dim testTxt As String
testTxt = "B Titr"
For i = 0 To Printer.FontCount - 1
If testTxt = Printer.Fonts(i) Then
Flag = True
Exit For
End If
Next i
If Flag = True Then
Else
MsgBox "فونت B Titr نصب نيست لطفا نسبت به نصب آن اقدام نماييد سپس برنامه را باز نماييد"
End
End If