Vi posto la soluzione ancora incompleta che ho creato :

codice:
        Dim html_tag As String = "<html>"
        If RichTextBox1.Text.Contains(html_tag) Then
            RichTextBox1.Select(html_tag.IndexOf("<"), html_tag.Length)
            RichTextBox1.SelectionColor = Color.Firebrick
            RichTextBox1.DeselectAll()
            RichTextBox1.SelectionColor = Color.Black
        End If
P.S.: Questo codice l'ho scritto per il problema di =tW=
Naturalmente mancano dei complementi, perchè ad esempio, quando si immette il tag "<html>" il cursore si sposta ad inizio riga e inizia a scrivere "oihcceps olla | allo specchio" nel senso che scrive da destra verso sinistra. C'è anche un problema, una volta che si scrive <html>, scrive tutto il resto in rosso.