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