求vb字符串查找有关问题

求vb字符串查找问题
是这样的,有个变量,从文本框获取数据

dim str as string

str= text1.text

我想从这个字符串中查找任意位置包含指定字符 
比如说,

VB code

if str(包含'x') or str(包含'y') thenxxxxelseyyyend if

VB code

dim s as stringdim P as longs=".............."p=instr(1,s,"查找内容")if p>0  then   msgbox "查找内容在第"& cstr(p) & "个字符位置"else   msgbox "查找内容在没有找到"end if
[解决办法]
用instr（）函数。