Dim zeile As String
        Dim z As Integer
        Dim auskommentieren As Boolean
 
        For z = 20000 To 20500
            zeile = RichTextBox1.Lines(z)
 
            Do
                If Mid(zeile, 1, 10) = "**ANSA_ID;" Then
                    zeile = "**" + zeile
                    zeile(z - 2) = "**" & zeile(z - 2)  --> hiermit ist er _
                      nicht einverstanden
                    zeile(z + 1) = "**" & zeile(z + 1)
                    auskommentieren = True
                End If
            Loop Until auskommentieren = True
            ListBox2.Items.Add(CStr(z) + "_" + zeile)
        Next z