Dim F As Integer
Dim sLine As String
 
F = FreeFile: Open App.Path & "\Adressen.csv" For Append As #F
sLine = 'Variabeln aus Access DB mit Begrenzungszeichen "" und Trennzeichen ; 
'siehe Datei Adressen.csv
 
sLine = Replace(sLine, vbCrLf, "")
sLine = Replace(sLine, vbLf, "")
sLine = Replace(sLine, Chr(10), "")
sLine = Replace(sLine, Chr$(10), "")
 
Print #F, sLine
Close #F