Textbox to search listbox

Using this code now and it some what works.

Private Sub TextBox1_Change()
Dim bFound As Boolean
Dim intIndex As Integer

bFound = False
intIndex = 0

Do While Not bFound And intIndex < ListBox2.ListCount
If UCase(Left(ListBox2.List(intIndex), Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
ListBox2.ListIndex = intIndex
bFound = True
End If
intIndex = intIndex + 1
Loop
End Sub

If I have a item in the list box (see the cat) when I type see it going to the item,is there a way to open this up so if I type cat it will go to idem?

Thanks Z

Answer to your question is no. But a workaround would be to have a text box to replace to value. So when you search the listbox you could get the index of the item then have button to update the listbox with the text box value.