Currency values are shown as non-formatted doubles when exporting from spreadsheet to pdf

Telerik.WinControls.Export.GridViewPdfExport pdfExporter = new Telerik.WinControls.Export.GridViewPdfExport(this.radGridView1);
pdfExporter.FileExtension = ".pdf";
pdfExporter.ExportVisualSettings = true;
pdfExporter.FitToPageWidth = false;
string fileName = @"..\..\DPLExportedData.pdf";
pdfExporter.RunExport(fileName, new Telerik.WinControls.Export.PdfExportRenderer());

Dim decimalColumn As GridViewDecimalColumn = New GridViewDecimalColumn()
decimalColumn.FormatString = "{0:C}"

Public Class RadForm1
    Sub New()
        ' This call is required by the designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
    End Sub

    Private Sub BtnTest_Click(sender As Object, e As EventArgs) Handles BtnTest.Click
        ExportToPDF()
    End Sub
    Private Sub ExportToPDF()
        Dim ExportFolder As String = "C:\Test\"
        Dim ExportFileName As String = "MyTest.pdf"

        Dim DtData As New DataTable
        DtData.Columns.Add("CurrentPrice", GetType(Double))
        For i As Integer = 0 To 9
            DtData.Rows.Add(10 * i)
        Next
        GridData.DataSource = DtData
        If GridData.Rows.Count > 0 Then
            If Not IO.Directory.Exists(ExportFolder) Then IO.Directory.CreateDirectory(ExportFolder)
            If IO.File.Exists(IO.Path.Combine(ExportFolder, ExportFileName)) Then IO.File.Delete((IO.Path.Combine(ExportFolder, ExportFileName)))
            Dim pdfExporter As New Telerik.WinControls.Export.GridViewPdfExport(GridData)
            pdfExporter.FileExtension = ".pdf"
            pdfExporter.ExportVisualSettings = True
            pdfExporter.FitToPageWidth = False
            AddHandler pdfExporter.CellFormatting, AddressOf pdfExporter_CellFormatting
            pdfExporter.RunExport(IO.Path.Combine(ExportFolder, ExportFileName), New Telerik.WinControls.Export.PdfExportRenderer())
        End If
    End Sub

    Private Sub pdfExporter_CellFormatting(sender As Object, e As PdfExportCellFormattingEventArgs)
        If e.ColumnIndex = 0 Then
            If e.CellElement Is Nothing Then Exit Sub
            Try
                Dim value As Double = 0.0
                If Double.TryParse(e.CellElement.Text.ToString(), value) Then
                    e.CellElement.Text = String.Format(Thread.CurrentThread.CurrentCulture, "{0:C}", value)
                End If
            Catch ex As Exception
            End Try
        End If
    End Sub

    Private Sub GridData_ViewCellFormatting(sender As Object, e As Telerik.WinControls.UI.CellFormattingEventArgs) Handles GridData.ViewCellFormatting
        If e.ColumnIndex = 0 Then
            If e.CellElement.Value Is Nothing Then Exit Sub
            Try
                Dim value As Double = 0.0
                If Double.TryParse(e.CellElement.Value.ToString(), value) Then
                    e.CellElement.Text = String.Format(Thread.CurrentThread.CurrentCulture, "{0:C}", value)
                End If
            Catch ex As Exception
            End Try
        End If
    End Sub
End Class