For I = 0 To Me.ListaPerfiles.ListCount
If Me.ListaPerfiles.Column(0, I) = Me.txtOtro.Text Then
'ya existe
COntrolP = True
Else
COntrolP = False
'no existe
End If
Efectivamente, recorriendo los Items del Cuadro de Lista con un bucle For Next y comparándolos con el campo de texto . Algo parecido trataba de explicarle hace unos días a Andres Cadavid para deshacer la selección en un Cuadro de Lista, pero a él parece que no le funciona.