searching list boxes

[suck_my_wognuts]

on a form i have a listbox a textbox and a command button.
the listbox is full of 6 digit numbers. I want to be able to enter a 6 digit number into the text box then press the button and it will find the 6 digit number in the listbox, then return the index or if the 6 digit number is in the list.+

[peet]

what the hell is a wognut ?

Option Explicit
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F
 
Private Sub Form_Load()
With List1
.Clear
.AddItem "CPU"
.AddItem "RAM"
.AddItem "ROM"
.AddItem "Cache"
.AddItem "Motherboard"
.AddItem "Hard Disk"
.AddItem "Floppy Disk"
End With
End Sub
 
 
Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
Text1.Text = List1.Text
End Sub

[phinds]

Private Sub cmdFind_Click()
Dim i As Integer
Dim myIndex As Integer

myIndex = -1
For i = 0 To lstReceiver.ListCount - 1
lstReceiver.ListIndex = i
If lstReceiver = txtReceiver Then
myIndex = i
MsgBox "found it at " & cstr(myIndex)
Exit For
End If
Next i

If myIndex = -1 Then
MsgBox "couldn't find the $^#%& thing!"
End If

End Sub