Findメソッドとかのヘルプみてみようよ。
使用例なんてのまであるんだよ？
それと検索したらさ、それだけではだめじゃん？
見つけた位置にキャレットもっていくとか
選択するとか、どうしたいかは貴方次第なのよ〜

で、こんなんでどう？（手抜き警報発令中）
Private Sub cmdFind_Click()
　　Dim x&
　　x = rtbText.Find(rtbFind.Text)
　　If x <> -1 Then
　　　　rtbText.SelStart = x
　　　　rtbText.SelLength = Len(rtbFind.Text)
　　　　rtbText.SetFocus 'HideSelection=Falseなら不要かな
　　End If
End Sub

Private Sub cmdChange_Click()
　　Dim x&
　　x = rtbText.Find(rtbFind.Text)
　　If x <> -1 Then
　　　　rtbText.SelStart = x
　　　　rtbText.SelLength = Len(rtbFind.Text)
　　　　rtbText.SelText = rtbChange.Text
　　End If
End Sub