Non sono sicuro che sia questo il problema, ma hai provato a impostare la valuta euro nel formato celle?

P.S. è difficile esportare dati da una DataGrid?

A Voi !!

Private Sub but_esport_Click()
Dim beg_export As Boolean
Select Case typ_file.SelectedItem.Value 'Tipo di file da esportare selezionato da una combo
Case "xls"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment;filename=Estrazione_dati_REF.xls")
Case "doc"
Response.ContentType = "application/msword"
Response.AddHeader("Content-Disposition", "attachment;filename=Estrazione_dati_REF.doc")
Case "xml"
beg_export = True
Case "Pdf"
Response.Redirect("/pdf-gen/generator.aspx?code=" & Request("code") & "&lang=" & Session("lang") & "&connes=" & Session("idconn") & "&idutente=" & Session("idutente"))
End Select
If Not beg_export Then
Response.Charset = ""
Me.EnableViewState = False
Dim tw As New System.IO.StringWriter
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
'Begin Header
DataGrid1.HeaderStyle.BackColor = System.Drawing.Color.FromArgb(120, 195, 229, 222)
DataGrid1.HeaderStyle.Font.Name = "Verdana, Arial, Helvetica, sans-serif"
DataGrid1.HeaderStyle.Font.Size.Unit.Pixel(10)
DataGrid1.HeaderStyle.Font.Bold = True
'Begin items
DataGrid1.ItemStyle.Font.Name = "Verdana, Arial, Helvetica, sans-serif"
DataGrid1.RenderControl(hw)
Response.Write(tw.ToString())
Response.AddHeader("Content-Disposition", "")
Response.End()
Else
Dim CopyToDataSet As String
Dim nomefile As String = Request("code") & ".xml"
Dim Ds As New DataSet
Ds = GridHandler.CopyToDataSet(DataGrid1, Request("code"))
WriteXmlToFile(Ds, nomefile, Server.MapPath("\XMLExport"))
Response.Redirect("\XMLExport\" & nomefile)
End If
'****************************************************************************
End Sub

Ho postato anch'io a suo tempo le istruzioni per esportare dati in EXCEL, cercate fra le discussioni di questi ultim 15gg e troverete come ci sono riuscito. Ad occhio è molto simile a come ha fatto l'amico Verorex