[VB6]Confrontare contenuto textbox con elementi listbox

[Cobrettis]

Come da titolo sto avendo problemi nel confrontare il contenuto di una textbox con gli elementi di una listbox. Mi spiego meglio. Ho una textbox con un nome e una listbox con tanti nomi. Voglio verificare se nella listbox c'è un nome uguale a quello della textbox. Ho provato in questo modo:

Private Sub Command1_Click()
Dim o As String
Dim i As Integer
For i = 0 To List1.ListCount - 1
o = List1.List(i)
If o = Text1.Text Then
MsgBox "Esiste"
Else
MsgBox "Non esiste"
End If
Next i
End Sub

Il problema è che mi visualizza tutte le msgbox relative ad ogni singolo elemento. Ad esempio se ho 4 elementi nella listbox mi visualizzerà 4 msgbox. E' questo il mio problema, ho bisogno di sapere fin da subito se esiste. Se non sono stato chiaro nello spiegare, vi prego di dirmelo che lo rispiegherò.

[oregon]

Quindi non dovrai mettere le MsgBox nel ciclo for ma fuori.

Utilizza una variabile booleana che chiami Trovato e che imposti all'inizio con

Trovato = False

All'interno del ciclo la If dovrà essere

If o = Text1.Text Then
  Trovato = True
  Exit For
End If

e fuori dal ciclo, alla fine

If Trovato Then
  MsgBox "Trovato"
Else
  MsgBox "Non trovato"
End If

[Cobrettis]

Grazie per l'aiuto, ho risolto.