I know it's something simple but...

I know it's something simple but I'm brain dead right now from the massive project I just finished. Any hoot - How do I search a list box using code instead of scrolling. I'd like to type the desired item in a text box and have the program search the list box.

Thanx,
Tired, confused and just plain beat down.

VB Code:

Private Sub Command1_Click()
  For i = 0 To List1.ListCount - 1
    If List1.List(i) = text1.Text Then
      List1.TopIndex = i
      MsgBox "found!"
    End If
  Next
End Sub