Listbox + Schleifenproblem

mein Problem ist wie folgt:
Ich habe eine Listbox, einen Button und ein Textfeld.
Ich möchte gerne, dass ich über das Ereignis Button_Click, in einer Listbox nach Einträgen suchen kann, die in einem Tabellenblatt gespeichert sind.
Sprich die Tabellendaten werden in die Listbox eingelesen, und ich möchte innerhalb dieser Listbox den Eintrag suchen, der in dem Textfeld notiert ist.
Ist der eintrag gefunden, soll dieser markiert werden.
Meine bisherigen Ergebnisse sind wie folgt:

Private Sub Button_Click

Worksheets("Tabelle1").Activate

Dim i As Integer

i = 1

Do While Cells(i, 2) <> TextBox2.Value Or Cells(i, 2) = ""
i = i + 1
Loop
If TextBox23.Value = Cells(i, 2) Then
ListBox1.ListIndex = (i - 1)
End If

End sub

was ist daran falsch?