[VB6]Confrontare contenuto textbox con elementi listbox

[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