我想在text1中查找"垃圾"这两个字,当然text1中已经被写上很多中文字了,找到后就弹出 MSgbox,这段代码怎么写啊,哪位高手帮帮忙啊!

if instr(1,text1.text,"垃圾")>0 then msgbox "我已经找到垃圾了"

当要从头开始查找字符串时，可以把 instr(1,text1.text,"垃圾") 改成 instr(text1.text,"垃圾")。

If Text1.Text Like "*垃圾*" Then MsgBox "我已经找到垃圾了"
上面代码的缺点是不能知道"垃圾"出现的位置。

受教了，原来还可以用LIKE,谢

我想，我们学编程的 不应该是给别人干的

我们学这一门东西，不只是为了 混口饭！！！！！！！！！

我们 学他 就要有一帆成就。 我们给别人干活，那只是暂时的 只是有一个立脚之石！
我们要在这个石头的基础上，向远出的高山上 去！！！
我希望各位朋友 能有一个适合于自己的计划，
心里一定要有一个想法--------要编出属于我自己的“天才”软件。没这个想法的人我希望
你改行，编程不适合你，更不需要你， 你走把！！！！
大家 一定要行动起来！ 从现在开始还不晚！

我想意识到晚已经的人，我想那还不晚（赶快行动把！）
我想那些没意识到的人，那该多么的可悲啊！
我们应该为他叹息！------张永正
一个成功人的背后，所付出的不只是你想像的那么多！-----张永正

希望我所说的能引人深思！
有信心的 +我的QQ群 20844899

tange3说的挺好，只是……好象不应该跟在这贴子后面吧……

都被上面的说了
那么我就用续循环来出场好了:
for i= 1 to len(text1.text)-1
if mid(text1.text,i,2)="垃圾" then msgbox"真的找到垃圾了":exit sub
next i

还是七楼的方便易懂，谢谢！

一年前的贴..现在才来回..