Makro exelspalten in txt datei exportieren

Option Explicit
Sub Spalte_ABE_InTextdatei()

  Const c_Path = c:\Testxx
  Const c_Filenamen = ExportSpalteABC.txt
  Const c_Trenn = , 
  
  Dim h As Integer, s_Filename_Full As String
  Dim ws As Worksheet
  Dim l_ZeileAMax As Long, l_ZeileBMax As Long, l_ZeileEMax As Long
  Dim l_maxzeile As Long, x As Long
  Dim s_SpalteA As String, s_SpalteB As String, s_SpalteE As String
  
 ->aktives Blatt setzen
  Set ws = ActiveSheet
  
 ->max. Zeile bestimmen
  l_maxzeile = 1
  l_ZeileAMax = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
  If l_maxzeile < l_ZeileAMax Then l_maxzeile = l_ZeileAMax
  l_ZeileBMax = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
  If l_maxzeile < l_ZeileBMax Then l_maxzeile = l_ZeileBMax
  l_ZeileEMax = ws.Cells(ws.Rows.Count, 5).End(xlUp).Row
  If l_maxzeile < l_ZeileEMax Then l_maxzeile = l_ZeileEMax

 ->nur eine Zeile ?
  If Dir(c_Path, vbDirectory) =  Then
    MsgBox ( _
      Spalte A,B,E sind leer oder haben nur eine Überschrift. & vbLf & _
      -->Abbruch)
      GoTo Aufraeumen
  End If

 ->Verzeichnis prüfen
  If Dir(c_Path, vbDirectory) =  Then
    MsgBox ( _
      Verzeichnis  & c_Path &  existiert nicht. & vbLf & _
      Bitte Verzeichnis anlegen.)
      GoTo Aufraeumen
  End If

  s_Filename_Full = _
    c_Path & Application.PathSeparator & c_Filenamen

 ->Filehandel
  h = FreeFile
 ->Datei öffnen
 ->Erzeugt Datei neu, überschreibt ggf. vorhandene Datei !!!
  Open s_Filename_Full For Output Access Write As #h
  
    For x = 1 To l_maxzeile
      
     ->Werte der Zeile auslesen und in String wandeln
      s_SpalteA = ws.Cells(x, 1).Value
      s_SpalteB = ws.Cells(x, 2).Value
      s_SpalteE = ws.Cells(x, 5).Value
      
     ->Werte-Strings durch Trennzeichen getrennt
     ->als Zeile in Datei schreiben
      Print #1, s_SpalteA & c_Trenn & s_SpalteB & c_Trenn & s_SpalteE
      
    Next
 ->Datei schliessen
  Close h
Aufraeumen:
  Set ws = Nothing
End Sub

For x = 1 To l_maxzeile

For x = 2 To l_maxzeile