堆栈溢出问题，希望大神指点！！！

[菜包包]

运行一段时间，提示堆栈溢出，请大神指点！！！万分感谢

[Tiger_Zhao]

把 Do ... Loop 改为

If MSComm.InBufferCount < 4 Then Exit Sub

每次收到数据都会有 OnComm 事件，这次数据不足就等下次啊。