[VB.NET] Cercare (ed evidenziare) testo all'interno di un controllo RichTextBox

[Huvber]

devo cercare una stringa in una richtextbox e selezionarla all'interno del testo.
Ho provato con questo codice ma nn funziona... dov'è chye sbaglio?

Dim a As Integer
a = testo.Find(cerca.Text)
Label1.Text = a
testo.Select(a, cerca.TextLength)

[oregon]

Dim a As Integer
a = testo.Find(cerca.Text)
Label1.Text = a
testo.Select(a, cerca.Text.Length)
testo.Focus()

[Huvber]

Grazie mille