Hjælp til replace = Chr(34)

Hej eksperter

Når jeg kører makroen som jeg har postet længere nede, så får jeg egentlig et næsten perfekt output på mit data. MEN! Da jeg kører med nogle dataheaders, så bliver der lavet ufatteligt mange gåseøjne og kommaer, da den laver for hver kolonne.
Det betyder at jeg får følgende som egentlig skal slettes (altså replaces med intet):
,"","","","","","","","","","","","","","","","","","",""

Derudover skal følgende replaces så " forsvinder:
Altså skal "{ blive til { og ligeledes med }" skal blive til }

Håber én af jer kan hjælpe med begge eller i det mindste det ene :)


' Export CSV file with double delimiter
Sub CSVFile()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant

FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
  If Selection.Cells.Count > 1 Then
    Set SrcRg = Selection
  Else
    Set SrcRg = ActiveSheet.UsedRange
  End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
  CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
  CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
  CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
' ,"","","","","","","","","","","","","","","","","","","" <-- 19 ""
'CurrTextStr = Replace(linje, "," + Chr(34) + Chr(34), "")
' CurrTextStr = Replace(linje, "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34) + "," + Chr(34) + Chr(34), "")
Close #1
End Sub