این کد رو امتحان کنید:



Private Sub Command1_Click()

a = Split(txt1.Text)

For i = 0 To UBound(a)

For j = 0 To List1.ListCount - 1

List1.ListIndex = j

If a(i) = List1.Text Then

MsgBox ("detected")

End If

Next j

Next i

End Sub