Public Function GetPrivateFontCollection() As XPrivateFontCollection
        Dim FC As New XPrivateFontCollection
        Dim URI As System.Uri
        URI = New Uri("file:///" + HttpContext.Current.Request.MapPath("~/Fonts/"))
        FC.Add(URI, "./#Calibri")
        FC.Add(URI, "./#Book Antiqua")
        FC.Add(URI, "./#Lucida Calligraphy")
        Return FC
    End Function

Dim MyPDF As PdfSharp.Pdf.PdfDocument
Dim MyPage As Pdf.PdfPage
Dim GFX As XGraphics
Dim MyFont As XFont
Dim MyFontCollection As XPrivateFontCollection = GetPrivateFontCollection()
Dim TF As XTextFormatter

MyPDF = New PdfSharp.Pdf.PdfDocument
MyPage = MyPDF.AddPage
GFX = XGraphics.FromPdfPage(MyPage)
GFX.MFEH = PdfFontEmbedding.Always
TF = New XTextFormatter(GFX)
Dim Options As New XPdfFontOptions(PdfFontEncoding.WinAnsi, PdfFontEmbedding.Automatic)
MyFont = New XFont(MyCard.Font1, 1, XFontStyle.Regular, Options)  <-- Error here

XPrivateFontCollection globalFontCollection = XPrivateFontCollection.Global;