CSV selbst erstellt - Komma statt Punkt

Sub CSVExport()
Dim sFile As Variant, msgAntwort As Variant
Dim Daten As Range, Zeile As Object, Zelle As Object
Dim strTemp As String
On Error GoTo errorhandler
With ActiveSheet
ChDrive (ThisWorkbook.Path)
ChDir (ThisWorkbook.Path)
SendKeys "{ENTER}"
sFile = Application.GetSaveAsFilename(InitialFileName:="TRDB--" & Format(Date, "YYYY-MM-DD") _
_
& "--" & VBA.Format(VBA.Time, "hh-mm-ss") & ".csv", _
FileFilter:="CSV-Datei (*.csv), *.csv") '& vbCrLf
Set Daten = .UsedRange
Close
Open sFile For Output As #1
For Each Zeile In Daten.Rows
If Zeile.Row > .Range("A65536").End(xlUp).Row Then
MsgBox "Die Datei wurde erfolgreich exportiert.", vbInformation, "Export  _
erfolgreich"
Exit Sub
End If
For Each Zelle In Zeile.Cells
If (Zelle.Column = 2) And Zelle  "" Then
strTemp = strTemp & CStr(Format(Zelle, "DD") & "." & Format(Zelle, "MM") _
& "." & Format(Zelle, "YYYY")) & ";"
Else
If (Zelle.Column = 4) Then
strTemp = strTemp & CStr(Zelle.Text) & ";"
Else
strTemp = strTemp & CStr(Zelle.Text) & ";"
End If
End If
Next Zelle
Print #1, Left(strTemp, Len(strTemp) - 1 + (Left(strTemp, 1) = "z"))
strTemp = ""
Next Zeile
Close #1
End With
Exit Sub
errorhandler:
MsgBox "Es ist ein Fehler aufgetreten. Die Datei konnte nicht vollstndig exportiert werden.",   _
_
vbCritical, "Fehlermeldung"
End Sub