VB读串口问题

[freesnowline]

我用VB写了读串口数据的程序，串口数据是PLC不间断的传送的（一次传送128个字符，50毫秒传送一次），但我读串口数据时却最多只能读到131个字符，无论读取时间间隔是多长，有那位大哥帮忙啊，谢谢啦！程序如下：
Const COM% = 3

MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True

MSComm1.RTSEnable = True

s = MSComm1.Input
Me.Text6 = Trim(CStr(s))
Me.Text7 = Len(Trim(Me.Text6))

[贝隆]

MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 1
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True
MSComm1.RThreshold = 1

Private Sub MSComm1_OnComm()
Dim inByte As Byte
If MSComm1.CommEvent = 2 Then
inByte = MSComm1.Input
text6.text=text6.text & cstr(inbyte)
End If
End Sub

[贝隆]

我的资源中有一个串口调试器（有源代码），你可下载来试一试（单步调试），对你肯定有帮助。