Dim zeile() As String
     Dim z As Integer
 
     zeile = Richtextbox1.lines
 
        For z = ??? To ????
 
            If zeile(z).StartsWith("**ANSA_ID;") Then
                zeile(z) = "**" + zeile(z)
                zeile(z - 2) = "**" & zeile(z - 2) 
                zeile(z + 1) = "**" & zeile(z + 1)
                Exit For
            End If
        Next z