جست و جو در تکست باکس

[NSNhaCkEr]

سلام
لطفا جواب بدید کارم خیلی گیر کرده همین الان باید سریع پروژه را تحویل بدم وقت جست و جو ندارم

یک تکست باکس دارم میخوام یک کلمه رو توش سرچ کنم در صورت وجود به من یک پیغام بده در صورت نبودن یک پیغام مثلا پیدا نکردم

تشکر
سریع لطفا

[parselearn]

Dim m As Integer
m = InStr(1, Text1.Text, "a")
If m = 0 Then
MsgBox "Not Find"
Else
MsgBox "Find"
End If


4 ساعت گذشته!!!