Facendo come dici tu però poi mi da errore il pulsante di ricerca che ha il seguente codice:
codice:
        ListIsIn(ListBox1, UCase(RichTextBox3.Text))
        RichTextBox3.Text = ""
l'errore è questo:

Cast non valido dalla stringa "USE CAPS " al tipo 'Integer'.