Buscar dato de un List1 desde un boton

[David]

Prueba así:

Código vb:

Dim ListItems As Integer
For ListItems = 0 To List1.ListCount - 1
    If Text2.Text = List1.List(ListItems) Then
        'Encontrado
        Exit For
    End If
Next ListItems