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

[xrezax]

فرض کنیم توی یک لیست باکس تعداد زیادی جمله وجود داره

حالا چطور میتونم جمله ای رو پیدا کنم که توش کلمه Aseman هست. و select کنم روش

inja Aseman besyar abi ast

[xrezax]

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


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"