求助：运行时出现错误！
本人vb初学者，有个问题希望高手看一下：
现在做个通过串口采集下位仪表的小程序，单步运行的时候能采集到值，可是全部运行就出现错误：实时错误 '5 '
无效的过程调用或参数

然后我点“调试”按钮，就进入到：

Function RecvCmdCom(buf As String) As String

Dim strRead As String
Dim intBeginBit As Integer
Dim intEndBit As Integer

intBeginBit = InStr(1, buf, ", ")
intEndBit = InStr(intBeginBit, buf, ": ")
strRead = Mid(buf, intBeginBit + 1, intEndBit - intBeginBit - 1)

RecvCmdCom = Str(Val( "&H " & strRead))

End Function

光标停在strRead = Mid(buf, intBeginBit + 1, intEndBit - intBeginBit - 1)
这个语句上。

请问各位高手，这个这么解决呢？是什么原因？

[解决办法]
Function RecvCmdCom(buf As String) As String

Dim strRead As String
Dim intBeginBit As Integer
Dim intEndBit As Integer

intBeginBit = InStr(1, buf, ", ") '这句加个判断
if intBeginBit = 0 then '如果buf 中没有 ", " ,那么
RecvCmdCom= " "
exit function
end if
intEndBit = InStr(intBeginBit, buf, ": ") '这句加个判断
if intEndBit = 0 then '如果buf 中没有 ": " ,那么
RecvCmdCom= " "
exit function
end if
strRead = Mid(buf, intBeginBit + 1, intEndBit - intBeginBit - 1)

RecvCmdCom = Str(Val( "&H " & strRead))

End Function