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

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

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

inja Aseman besyar abi ast

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

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"