ASCII-Datei aus Excel erzeugen - fcs hier irgendwo

Sub ASCII_Datei_2()
On Error GoTo Fehler
Dim ZE%, i%
Dim Datei
Dim A$, B$, C$, D$, E$, F$, G$, H$
Datei = Application.GetSaveAsFilename(InitialFileName:="ASCII-Barcode-Import.txt", _
Filefilter:="Text(*.txt),*.txt", _
Title:="Dateiname für ASCII-File auswählen/eingeben")
If Datei = False Then
MsgBox "Keine Daten erzeugt"
End
End If
ZE = InputBox("Daten ab Zeile", "Kopfzeile vorhanden", 2)
Close #1
Open Datei For Output As 1
For i = ZE To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
A = Format(Cells(i, 1), String(5, "0"))
B = Left(Cells(i, 2) & Space(1), 1)
C = Left(Cells(i, 3) & Space(3), 3)
D = Left(Cells(i, 4) & Space(8), 8)
E = Left(Cells(i, 5) & Space(13), 13)
F = Left(Cells(i, 6) & Space(8), 8)
Print #1, Join(Array(A, B, C, D, E, F), "/")
Next i
Close #1
MsgBox "Daten erzeugt"
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub