Dim strSplit() As String
strSplit = Split(Text1.Text)


For i = 0 To UBound(strSplit)
For j = 0 To List1.ListCount - 1
List1.ListIndex = j
If strSplit(i) = List1.Text Then
MsgBox ("ok")
End If
Next j
Next i