我的第一篇博文是关于粗心的！

dimbysend()

ReDim bytSend(90) As Byte  For x = 1 To Len(hexCTR)  bysend((x - 1)) = "&H" + VBA.Mid(hexCTR, (2 * x - 1), 2)  Next x

 

调试提示：下标越界

 

启示：粗心的人，错误多少最简单的，但很致命！