Private Function equals(ByRef Box As RichTextBox) As Boolean
Dim i&
 
equals = True
 
For i = 0 To Len(Box.Text)
 
If Mid(Box.Text, i + 1, 1) = "<"Then
 
  With Box
     .SelStart = instrRev(.text," ",i,vbTextCompare)
     .SelLength = instr(i,.text, " ",vbTextCompare)-(.selStart+1) 'kann unter 
     ' umständen sein das du stadt 'i' , 'i+1' eingeben muß
     .SelClolor = vbRed
 End With
 
  equals = False
 
End If
 
Next i
End Function