串口通讯的问题，请教各位：

现在利用串口进行通讯，（发送、接收均为二进制数据）。可以实现发送，但是接收不正确，程序如下：
Dim outbyte() as BytePrivate Sub cmdSend_Click()
ReDim outbyte(1 To 1)
outbyte(1) = Val("&H" + txtSend.Text) '以十六进制方式
Debug.Print outbyte(1)
  MSComm1.Output = outbyte

End Sub
接收程序：
     Debug.Print "Received  " & MSComm1.InBufferCount & "个字符"

     txtReceive.Text=txtReceive.Text + Trim(MsComm1.Input) & vbCrlf