ساخت دکمه جستجو یا Fine

[lonak_2006]

سلام
در یک فرم که یک لیست باکس و یک تکس باکس و یک دکمه به نام جستجو هست .
حالا وقتی درون تکس باکس چیزی نوشتم می خواهم ببینم آیا این نوشته درون لیست باکس من هست یا نه ؟
اگر بفرمایید چگونه کد نویسی کنم که وقتی روی دکمه ی بنام جستجو کلیک کردم ببیند آیا کلمه مورد نظر در لیست باکس هست یا نه ؟
باتشکر

باتشکر از شما دوست عزیز pcdownload
یک سوال دیگر اگر لطف کنید بفرمایید بعد از این کلمه مورد نظر را در لیست باکس پیدا کرد می خواهم در قسمت لیست باکس آن کلمه را به حالت سلیکت کرده نشان بدهد ببخشید که مجددا سوال کردم
باتشکر فراوان

[pcdownload.bloghaa.com]

کد زیر را برای دکمه بنویس :

For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
MsgBox "this word exist in list."
Exit Sub
End If
Next i
MsgBox "this word not exist in list."