总提示下标过界，百度了没找到对应的
Public Function frame_very(pbuf() As Byte, dlen As Byte) As Boolean
Dim rtn As Boolean
Dim ppbuf() As Byte
Dim i As Integer
rtn = False
For i = 0 To 2
ppbuf(i) = pbuf(i + 1)'就是后面这个数组显示下标过界
Next

[解决办法]
用ubound判断下pbuf的上限