zusatz einträge in die text datei

Sub MachHinne()
Dim zeile As Integer
Dim spalte As Integer
Dim text As String
Dim rng As Range
Set rng = ActiveSheet.Cells(1, 1).CurrentRegion
Close #1                              'Öffnen der Textdatei
Open ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt" For Output As 1
' ---> text1="anfang kommentar"
With rng
For zeile = 1 To .Rows.Count          'Schleife für Zeilen
text = ""                             'Zusatz für alle Zeilen
For spalte = 1 To .Columns.Count      'Schleife für Spalten
text = text & CVar(.Cells(zeile, spalte))
If spalte < .Columns.Count Then text = text & ""  'komma entfernt
Next
Print #1, text
Next
End With
'---> text2="ende kommentar"
Close #1                               'Schließen der Textdatei
End Sub