主题：请教自定义信息提示窗口的代码问题

蓝老师，我根据开发指南中OpenQQ的自定义信息窗口的提示，步骤五的代码

在OpenQQ客户端的MessageReceived事件中编写代码：

Dim pts() As String  = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息
    fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健、单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
    PopMessage("送货单" & pts(1) & "已由" & pts(2) & "审核通过!")
    Dim dr As DataRow = DataTables("送货单").Find("单号 = '" & pts(1) & "'")
    If dr IsNot Nothing Then
        dr.Load
    End If
End If

在WeChatMessageReceived事件中输入以上代码提示错误，无法确定保存

错误代码Dim pts() As String = e.Message.Split("|")

不知是何原因请老师指教