Non so se hai già trovato la soluzione, comunque puoi fare così:

codice:
dim paroladainserire as string
dim presente as boolean

presente = false
for i = 0 to list1.listocount - 1
    if list1.list(i) = paroladainserire then presente = true: exit for
next i
if presente = false then list1.additem paroladainserire
Ciao