所有分双手奉上.请各位高手务必帮忙!通讯问题

Private Sub Timer1_Timer()
    Dim buffer() As Byte
    Dim midstr As String
    Dim i As Integer
    If MSComm1.InBufferCount Then
        buffer = MSComm1.Input
        
        For i = 0 To UBound(buffer)
         Text1.Text = Text1.Text + Hex$(buffer(i)) + " "
             midstr = ""
             midstr = Hex$(buffer(i))
             If Len(midstr) = 1 Then
                 midstr = "0" & midstr
                 getdata = getdata + midstr
             Else
                 getdata = getdata + midstr
           
             End If
         
         Next
          If Len(getdata) = 16 Then
               Call Module1.appenddata
               jilu = True
              'CmdSend_Click
               
     End If
    
        
    End If
End Sub这是我的一段程序。可检测串口通讯，接收数据。timer1.interval =自己设置即可！