[VB.NET] Utilizzo del metodo Find del controllo RichTextBox

[maghetto.sec]

Salve a tutti,
vorrei sapere se qualcuno di voi ha la soluzione al mio problema di cui non riesco a venire a capo.

Ho una RichTextBox chiamata RichTextBox1 e una TextBox chiamata UsernameBox.
Alla pressione del bottone, il programma deve cercare se nella RichTextBox1 c'è già il testo specificato nell UsernameBox.
Se il testo della UsernameBox è nella RichTextBox1 deve venire visualizzata una MessageBox.
Il problema è che il messaggio d'errore compare sia se c'è il testo della UsernameBox nella RichTextBox1 e sia ce NON c'è.
Come faccio a risolvere? Posto qui il codice.

If RichTextBox1.Find(UsernameBox.Text, RichTextBoxFinds.MatchCase) Then
                MessageBox.Show("Error")
           Else
                'Altre azioni

Spero di essere stato chiaro e che qualcuno di voi mi aiuti urgentemente.
Grazie!

[cyanuro]

Se guardi il metodo find
RichTextBox.Find Method (String)
questo restituisce un INTERO