Public Sub HTMLTag(rtfBox As RichTextBox, Tag As String, Color As Long)
'// Hebt einen Tag hervor
Dim sPos As Long
 
 
With rtfBox
sPos = 0
Do
    sPos = .Find(Tag, sPos + 1)
    If sPos > 0 Then
            .SelStart = sPos
            .SelLength = Len(Tag)
            .SelColor = Color
            sPos = sPos + Len(Tag)
    End If
Loop Until sPos < 1
End With
 
' Alte Farbe wiederherstellen
rtfBox.SelColor = vbBlack
 
End Sub