Export To CSV file It displays Spanish Character

The Below Code i have used to Export for CSV Format

<  Dim FileFullPath As String = System.IO.Path.GetFullPath(psPhysicalFileName)
        Dim FileExtension As String = System.IO.Path.GetExtension(FileFullPath)

        ' Determine the original file name.
        ' When the download window opens, show the original file name in the File Name textbox.
        Dim OriginalFileName As String = System.IO.Path.GetFileName(psOriginalFileName)

        Dim FileType As String = String.Empty
        Dim FileContentType As String = String.Empty

        Try
            If Not IsDBNull(FileExtension) Then
                FileType = LCase(FileExtension)

                ' Determine the content type based on the file extension.
                Select Case FileType
                    Case ".html"
                        FileContentType = "text/HTML"
                    Case ".gif"
                        FileContentType = "image/GIF"
                    Case "jpeg"
                        FileContentType = "image/JPEG"
                    Case ".txt"
                        FileContentType = "text/plain"
                    Case ".csv"
                        FileContentType = "text/csv"
                End Select
            End If

            ' The dialog should show the original file name.
            If (forceDownload) Then
                Response.AppendHeader("content-disposition", _
                                      "attachment; filename=" & OriginalFileName)
            End If

            ' Sent the content type so that browser will know how to handle the file.
            If FileType <> String.Empty Then
                Response.ContentType = FileContentType
            End If


            ' Initiate the download
            Response.WriteFile(FileFullPath.ToString())

            ' Show the link to all the user to download the file if necessary.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "You have downloaded the file " & OriginalFileName

            End If

            Response.End()

        Catch oEx As Exception

            ' Show the error message if needed.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "Error downloading the file " & OriginalFileName
            End If

        Finally
            ' Clean up objects
        End Try
>

In one cell,i get output like
"Left Message – VM" Instead of "Left Message - VM"
Thanks in Advance

Tags: C#, Visual Basic