Problemas con items

Hola nuevamente, he pasado mucho tiempo sin descubrir lo que está mal y me he decidido a pedir ayuda..
El siguiente código funciona bien, si ingreso una comuna que esta dentro del item "no la ingresa", pero cuando creo una nueva, al buscarla no la encuentra, ademas al iniciar nuevamente el ciclo originalmente queda somo si no hubiera sumado ninguna isapre..
Te agradecería que lo chquearas
Gracias
if (len(sle_8.text) > 1) and (len(sle_8.text) < 5) or (trim(sle_8.text) <> " ") then
for li_for = 1 to (UpperBound(ddlb_2.item[]))
lb_exit = TRIM(sle_8.text) = TRIM(ddlb_2.item[li_for])
if lb_exit then
messagebox("Error de Ingreso Para la Isapre","La Isapre está Repetida")
ddlb_2.visible = true
sle_8.visible = false
sumitem = true
exit
end if
MESSAGEBOX("",(UpperBound(ddlb_2.item[])) )
next
if len(trim(sle_8.text))=0 then
Messagebox("Error de Ingreso Para la Isapre","No debe ingresar espacios en Blanco")
sle_8.text=" "
ddlb_2.visible = true
sle_8.visible = false
sumitem = true
end if
if sumitem = false then
messagebox("Atención en la Isapre","Se ha ingresado una isapre correctamente")
indice2 = ddlb_2.additem(sle_8.text)
indice2 = ddlb_2.selectitem(indice2)
sle_8.text = " "
ddlb_2.visible = true
sle_8.visible = false
sumitem = true
end if
end if