Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            RichTextBox1.Focus()
            RichTextBox1.Select(RichTextBox1.Find(TextBox1.Text), _
              TextBox1.TextLength)
        Catch ex As Exception
 
        End Try
    End Sub

fg viperbone