تشخیص یک کلمه در لیست

سلام دوستان
چطور میتونم اینکارو بکنم که برنامم :

وقتی داخل list1 کلمه ای با عنوان 111 هست یک اررور بده و بگه هست و در غیر اینصورت بزنه نیست.

Dim i As Integer

For i = 0 To List1.ListCount - 1

List1.ListIndex = i

If List1.Text = txtsearch.Text Then

MsgBox " يافت شد" & i, vbInformation + vbOKOnly, "founded"

Exit Sub

End If

Next i

MsgBox " يافت نشد", vbExclamation + vbOKOnly, "not founded"

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

همش چهار خط کده دیگه از این سادتره می خوای واسه چی

For i = 0 To List1.ListCount - 1

If List1.List(i) = "111" Then

MsgBox ("Error")

Exit For

End If

Next

بیا این هم ساده ترین خط کد دنیا

For i = 0 To List1.ListCount - 1

If List1.List(i) = "111" Then msgbox "Hast": Exit for

Next