Bei Export in .txt Datum umwandeln

Sub save_sheet()
Const fn = "C:\Test.txt" 'Dateiname
Dim sh As Worksheet
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim ff, lastRow As Integer
Set sh = Sheets("MAIN")
lastRow = Worksheets("MAIN").Range("B65536").End(xlUp).Row
Set Bereich = Range("B12:F" & lastRow)
ff = FreeFile
Open fn For Output As ff
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
s = s & Zelle.Text & " "
Next
Print #ff, Left(s, Len(s) - 1) 'letzten [TAB] abschneiden
s = ""
Next
Close ff
End Sub