串口接收数据问题，求高手解答！

我用两太机器做测试，一台机器使用“串口调试助手”发送16进制数据“A0 04 00 00 00 54 A1 00 00 00 00 6E”，无法正常接收。
下面是代码：
——————
Private Sub Command1_Click()
    If Command1.Caption = "开始" Then
        MSComm1.CommPort = 1
        MSComm1.InBufferSize = 40
        MSComm1.InputLen = 1
        MSComm1.RThreshold = 1
        MSComm1.InputMode = comInputModeBinary
        MSComm1.PortOpen = True
        Command1.Caption = "终止"
        Label1.Caption = ""    '用来显示
    Else
        MSComm1.PortOpen = False
        Command1.Caption = "开始"
    End If
End SubPrivate Sub MSComm1_OnComm()
    Do While MSComm1.InBufferCount > 0
        Dim buffer As Variant
        Dim var() As Byte
        buffer = MSComm1.Input
        var = buffer
        MSComm1.InBufferCount = 0
        For i = 0 To MSComm1.InBufferCount
            Dim tempVar
            tempVar = Hex$(var(i))
            If Len(tempVar) = 1 Then
                tempVar = "0" & tempVar
            End If
            Label1.Caption = Label1.Caption & tempVar & " "
        Next i
    Loop
End Sub——————————如果能帖代码，请帖代码。
谢谢！