Fai così:

codice:
for i = 0 to list1.listcount - 1
           if stringa = list1.list(i) then
           msgbox "Stringa già presente, voce n° " & i -1  
           else
           list1.additem stringa
           next i
Chiaramente così non distingue tra maiuscole e minuscole (es. Casa è diverso da casa..ma quello si risolve o con lcase o con ucase)


fammi sapere..

ciao