Private Sub Command2_Click()
    Dim pos As Long
 
    pos = rtf.Find("Michi")
    If pos <> 0 Then
        rtf.SelStart = pos
        rtf.SelLength = Len("Michi")
        rtf.SelColor = vbBlue
        rtf.SelBold = True
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1