请问什么办法可以返回文本中包含的字符呢？


Private Sub Command1_Click()
Text1 = "你好吗？我很好"
'点击事件后显示字符

End Sub

Private Sub Command2_Click()
Text2 = "你" '这里我是随便写的，不一定是"好"的字符
'这里往下就是问题了
'当text2为"好"时，text1中包含了有好的字符，在text3中就返回"好"字符，否则为空
'如上的问题应该如何解决的了？
End Sub
望高手帮忙~赐教！谢谢各位!

谢谢楼上朋友，但是按你上面说的，你的意思是用instr函数，只是返回该字符的所在位置，
难道朋友的意思是，用判断，当需要包含的字符大于0时（'就是表示字符存在),返回该字符?
而且这样是连符号也包括在内的。按这样的话的确能解决到问题。不知道有没有其他的方法呢？
非常感谢楼上朋友的关注与帮助！谢谢！

Private Sub Command1_Click()
Text1 = "你好吗？我很好"
'点击事件后显示字符
End Sub

Private Sub Command2_Click()
'Text2 = "你" 在窗口上写入字符
If InStr(Text1,Text2) = 0 Then Exit Sub
Text3 = Text2
End Sub

谢谢楼上的朋友，你的if语句的结束语是Exit sub，是如果要找的字符等于0时，继续下一个的意思？
呵呵，因为新学，if.....then.....exit sub，语句少见些。

谢谢明白了！