Dim pos1,pos2,pos3 as integer
Try
 pos1 = txt_text.Text.IndexOf("<")
 pos2 = txt_text.Text.IndexOf(">")
 pos3 = pos2 - pos1
 txt_text.SelectionStart = pos1 + 1
 txt_text.SelectionLength = pos3
 txt_text.SelectionColor = System.Drawing.Color.Red
 txt_text.SelectionStart = Me.txt_text.TextLength
Catch ex as exception
End Try

Ton code ne marche pas, la nouvelle erreur est

Citation

<p> test </>
<p>test 2</p>

EDIT :
erreur : la première ligne est en rouge
-Les autres ligne sont en noir
-le curseur est toujours a la fin