Tabs nicht einheitlich | Herbers Excel-Forum

Hallo,
ich hab folgendes Problem: Hab einen VBA-Code geschrieben, der auch funktioniert. Dieser Code speichert die Excel Datei als txt-Format ab. Jedoch sind die tab-Abstände nicht einheitlich.
Das sieht dann folgendermaßen aus.

Der Code sieht so aus:

Sub test()
Dim Dein_Bereich As Range
Dim sZiel As String, Ausgabe As String
Dim F As Integer
Const strTrennzeichen As String = "             "
Set Dein_Bereich = Sheets("upload_Kanal").Range("A3:H10")
Dateiname = Sheets("Tabelle1").Cells(5, 1)
sZiel = Application.GetSaveAsFilename(Initialfilename:=Dateiname, filefilter:="(*.xls), *.xls,  _
Text Files (*.txt), *.txt")
If sZiel <> CStr(False) Then
With Application
For Each Dein_Bereich In Dein_Bereich.Rows
If .WorksheetFunction.CountIf(Dein_Bereich, "              ") < Dein_Bereich.Columns.Count  _
Then
Ausgabe = Ausgabe & Join(.Transpose(.Transpose(Dein_Bereich)), strTrennzeichen) & vbCrLf
End If
Next Dein_Bereich
End With
If Ausgabe <> "               " Then
Ausgabe = Left$(Ausgabe, Len(Ausgabe) - 1)
F = FreeFile
Open sZiel For Output As #F
Print #F, Ausgabe
Close #F
Else
MsgBox "keine Daten"
End If
End If
End Sub