OnComm事件如下:On Error GoTo onerr
    With CommReceive
        Select Case .CommEvent
            Case comEvReceive
                If Not IsReceive Then Exit Sub
                .InputLen = 0
                buffer = .Input
                Sleep (400)   ' 加上sleep 后,解决了数据短续,但是每次获取,整个程序也
                                跟着Sleep,很不爽 。              
                DoEvents
                If TrimAll(buffer) <> "" Then
                     debug.Print buffer
                end if
        End Select
    End With
onerr:
   Exit Sub各位有没有更好的解决方法?