Brug af tegn i forbindelse med generering af csv filer

I forbindelse med export af data som *.csv filer benytter jeg denne modulkode :

Public Function Export_001()
Dim trz As Integer
Dim strCSV As String

For trz = 1 To 511
Close #trz
Next trz
trz = FreeFile
Open "C:\Data\Upload files\Seaoon 2007.csv" For Output Access Write As #trz

With CurrentDb.OpenRecordset("Season 07")
Dim x As Integer
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & .Fields(x).Name & "| "
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)

Do Until .EOF
strCSV = ""
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & Nz(.Fields(x), "<NULL>") & "| "
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)
.MoveNext
Loop
End With
Close #trz

End Function

Det virker I og for sig godt, men fra tid til anden sker der det, at "| " indgår som en del af teksten I en record, hvilket gør at den deles op I t kolonner :-(

Er der nogen måde hvorpå jeg kan undgå dette ????