sono buono...
codice:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Costanti per uso con SendMessage per la gestione delle listbox
Public Const LB_FINDSTRINGEXACT = &H1A2
Public Const LB_FINDSTRING = &H18F
la prima costante è x la ricerca della stringa esatta

posizione = SendMessage(listbox.hWnd, LB_FINDSTRINGEXACT, 0&, ByVal cosaCercare)

listbox metti il nome della tua listbox. Se ritorna -1 non ha trovato nulla.