How to check a small text into a string?

[ssvali]

Here is the code..

Code:

str = "test is a job that we have to check error or bug from a product...."

s = InStr(1,str,"test")

If s = 1 then
  Msgbox "Given word exists in the string"
else
  Msgbox "Given word does not exists in the string"
End If