anybody know how to find item in Combo Box ?, I try to use my program below but it does not work :

For mCheck=1 to combo1.Listcount -1
combo1.ListIndex = mcheck
If combo1.text = txtFind.Text then
msgbox "Found"
Exit for
End if
Next mcheck

thanks for the idea