makro erweitern (textdatei kommentieren)

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
' ---> am anfang text einfügen
Print #1, "anfang kommentar1"
Print #1, "anfang kommentar2"
Print #1, "anfang kommentar3"
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
'am ende text einfügen
Print #1, "ende kommentar1"
Print #1, "ende kommentar2"
Print #1, "ende kommentar3"
Close #1                               'Schließen der Textdatei
End Sub