Di sicuro ti posso dire che la ricerca te la fa questa riga:
codice:
Set sFound = .lstADD.FindItem(Text1, lvwText, , lvwPartial)
Adesso devi vedere se FindItem accetta il numero della colonna sulla quale effettuare la ricerca. In caso negativo(come credo) basta fare un ciclo for sulla colonna che ti interessa.