<font color=green>' alles zwischen < und > blau einfärben</font>
Dim sPos As Long
Dim ePos As Long
 
With RichTextBox1
  .Visible = False
  sPos = 0
  Do
    sPos = .Find("<", sPos + 1)
    If sPos > 0 Then
      ePos = .Find(">", sPos + 1)
      If ePos > 0 Then
 
        .SelStart = sPos
        .SelLength = ePos - sPos + 1
        .SelColor = vbBlue
 
        sPos = ePos + 1
      End If
    End If
  Loop Until sPos < 1
  .Visible = True
End With