تشخیص وجود یک کلمه در یک جمله در لیست باکس

خودم درستش کردم.
میزارم اینجا شاید به درد کسی خورد.

Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If InStr(1, List1.List(i), "Aseman") > 0 Then
MsgBox " íÇÝÊ ÔÏ" & i, vbInformation + vbOKOnly, "founded"
Exit Sub
End If
Next i
MsgBox " íÇÝÊ äÔÏ", vbExclamation + vbOKOnly, "not founded"