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

[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"