Pdf импортируется без знаков кириллицы

 Private Sub ButtonX9_Click(sender As Object, e As EventArgs) Handles ButtonX9.Click
        'Creating iTextSharp Table from the DataTable data
        Dim pdfTable As New PdfPTable(DataGridViewX1.ColumnCount)
        pdfTable.DefaultCell.Padding = 3
        pdfTable.WidthPercentage = 100
        pdfTable.HorizontalAlignment = Element.ALIGN_LEFT
        pdfTable.DefaultCell.BorderWidth = 1
 
        'Adding Header row
        For Each column As DataGridViewColumn In DataGridViewX1.Columns
            Dim cell As New PdfPCell(New Phrase(column.HeaderText))
            cell.BackgroundColor = New iTextSharp.text.BaseColor(240, 240, 240)
            pdfTable.AddCell(cell)
            
        Next
 
            'Adding DataRow
            For Each row As DataGridViewRow In DataGridViewX1.Rows
            For Each cell As DataGridViewCell In row.Cells
                pdfTable.AddCell(cell.Value.ToString())
            Next
        Next
 
        'Exporting to PDF
        Dim folderPath As String = Application.StartupPath + "\pdf\"
        If Not Directory.Exists(folderPath) Then
            Directory.CreateDirectory(folderPath)
        End If
        Using stream As New FileStream(folderPath & Now.Date + ".pdf", FileMode.Create)
            Dim pdfDoc As New Document(PageSize.A4, 10.0F, 10.0F, 10.0F, 0.0F)
            PdfWriter.GetInstance(pdfDoc, stream)
            pdfDoc.Open()
            pdfDoc.Add(pdfTable)
            pdfDoc.Close()
            stream.Close()
        End Using
        Process.Start(Application.StartupPath + "\pdf")
        pdf.Show()
    End Sub

Dim baseFont As BaseFont = BaseFont.CreateFont(Application.StartupPath + "\arial\arial.ttf", BaseFont.IDENTITY_H, BaseFont.NOT_EMBEDDED)
            Dim font As New iTextSharp.text.Font(baseFont, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL)

Dim cell As New PdfPCell(New Phrase(column.HeaderText))

pdfTable.AddCell(cell.Value.ToString())

Dim cell As New PdfPCell(New Phrase(column.HeaderText, font))

pdfTable.AddCell(New Phrase(cell.Value.ToString(), font))

Dim baseFont As BaseFont = BaseFont.CreateFont(Application.StartupPath + "\arial\arial.ttf",