'aktuelle Coursor Position speichern
        coursorPos = Serox_Editor.SelectionStart
 
        'Jedes Zeichen im Editor durchlaufen
        For i = 0 To Serox_Editor.Text.Length - 1
 
            'Tag Begin? Dann position merken
            If Serox_Editor.Text.Substring(i, 1) = "<" Then
                Serox_Editor.SelectionStart = i
            'Tag Ende? Dann gesammten Tag von Tag begin bis hierher Makieren 
            ' und farbe ändern
            ElseIf Serox_Editor.Text.Substring(i, 1) = ">" Then
                Serox_Editor.SelectionLength = i - Serox_Editor.SelectionStart _
                  + 1
                Serox_Editor.SelectionColor = Color.DarkRed
                Serox_Editor.SelectionStart += Serox_Editor.SelectionLength
                Serox_Editor.SelectionColor = Color.Black
                Serox_Editor.DeselectAll()
            End If
        Next
        Serox_Editor.SelectionStart = coursorPos