کد جستجو در Vb.net

من یه مشکل در Search در Vb.net2003 دارم
اگه کسی کد Search را به من بده ممنون میشم

My.Settings.SettingsKey = Textbox1.Text
If Textbox1.Text.Contains(Textbox2.Text) Then

End If
با این دستور تکس باکس 2 در داخل تکس باکس 1 به جستجو می پردازد و اگر متن مورد نظر در داخل تکس باکس 1 پیدا شود آنگاه دستورات شرطی اجرا خواهد شد

آقا.......
تاریخ پست اول را دقت کنید........................................ 2007؟ 5 سال پیشه!

لطفا در ارائه پاسخ ها بسته به زمان دقت کنید.