[color=#00008b]If[/color] TextBox1.Text.Contains("ضع الكلمة التي تريد البحث عنها") [color=#00008b]Then[/color]
MsgBox([color=#800000]"موجودة"[/color])
[color=#00008b]Else[/color]
MsgBox([color=#800000]"غير موجودة "[/color])
[color=#00008b]End[/color] [color=#00008b]If[/color]