如何根据richbox中的内容判断是否出现需要的结果！！

Question

我的richbox显示的内容里面同时有很多个“4216:1=......”和一个“4216,命令无数据“，我想在这个内容里面判断如果出现“4216,命令无数据”就判断错误，如果没有这个就判断正确，请高手指教如何做到呢？？？？？？谢谢！！！！！！！！！！！

Answer 1

p = InStr(richbox1.Text, "4216,命令无数据")
If p > 0 Then
MsgBox "错误"Else
MsgBox "正确"
End If

Answer 2

p = InStr(richbox1.Text, "4216,命令无数据")
If p > 0 Then
MsgBox "错误"Else
MsgBox "正确"
End If