我想在richtextbox输出的报告中根据一个RETCODE = ？？？判断结果是否正确，怎么做啊？请高手指教1！！

来源：百度知道 编辑：UC知道 时间：2024/09/19 16:00:05
报告内容如下：
“
..............
...............
.................

RETCODE = 7006 用户没有找到

--- END ”

表示结果错误，应该出一个对话框提示错误。

如果如下：
“
..........
..........
..........
RETCODE = 0 操作成功”
表示成功。 但是RETCODE = 0，在这个输出报告中出现很多次，而且不是最后一行，我想已最后一次为判断依据，只要RETCODE =其它数值就表示错误，请高手指教！！！

Private Sub Command1_Click()
s = richtextbox1.Text
Dim re
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "RETCODE *= *(\d+)"
Dim ms, m
If re.test(s) Then
Set ms = re.Execute(s)
Set m = ms(ms.Count - 1)
If Val(m.SubMatches(0)) <> 0 Then
MsgBox "错误:" & m.SubMatches(0)
Else
MsgBox "正确"
End If
End If
End Sub