Private Sub setColor(KeyAscii As Integer)
  Dim nPos As Long
  Dim sPos As Long
 
  With rtfProtokoll
    sPos = .SelStart
    .Visible = False
 
    nPos = -1
    Do
      nPos = .Find(Chr$(KeyAscii), nPos + 1)
      If nPos >= 0 Then
        .SelLength = 1
        .SelColor = vbRed
      End If
    Loop Until nPos < 0
    .Visible = True
 
    .SelStart = sPos
  End With
End Sub