求助一个简单问题，查找文本中的关键字

Question

在TEXTBOX中有一段文字，如果文字中包含我需要查找的信息，就在MSGBOX显示找到信息，如果没有的话，显示未找到信息，
谁能告诉我该怎么做呢？

Answer 1

if instr(textbox1.text,string1) = 0 then
   msgbox "未找到"
else
   msgbox "找到"
end if

Answer 2

那么再请问下，怎么把这段内容在TEXTBOX中CUT掉？谢谢！

Answer 3

string2 = Replace(textbox1.text,string1,"")'把textbox1.text中包含的string1替换为空字符串

Answer 4

现在又出现新问题了，显示出现类型不匹配    If InStr(Text1.Text, string1) = 0 Then
    Label1.Caption = "未找到"
    Else
    Label1.Caption = "找到"
    End If
*    string2 = Replace(Text1.Text, string1, "")就是打星号的这一行

Answer 5

我把MSGBOX换成LABEL怎么就出错了呢？

Answer 6

o-yi?楼上的，你想怎么样来着？

Answer 7

你应该把打星号的那一行放到Else 和 End if语句的中间

Answer 8

Instr([N1,]C1,C2[,M])
在C1中从N1开始找C2，省略N1从头找，找不到为零     
例：Instr(2,"ABCDEFG","EF")=5InStrRev(C1,C2[,N1][,M])
从字符串尾开始找，与Instr函数相似Replace(C,C1,C2[,N1][,N2][,M])
在C字符串中从N1开始将C2替代C1有N2则替代N2次