Private Sub mark(ByVal rtb As RichTextBox)
        Dim s As String = rtb.Text
 
        Dim m As Boolean
        Dim st As Integer
 
        For i As Integer = 0 To s.Length - 1
            Dim c As Char = s.Substring(i, 1)
            If c = ">"c Then
                rtb.SelectionStart = i + 1
                st = i
                m = True
            End If
            If c = "<"c AndAlso m Then
                Dim sl As Integer = i - st - 1
                If sl > 0 Then
                    rtb.SelectionLength = sl
                    rtb.SelectionColor = Color.Red
                End If
                m = False
            End If
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist