急!!看看串口的问题.

我的线和连接都是没有问题的,我采用的是指令方式,磅秤也是设置为指令方式的,但是接受区有数据,
程序运行的时候,MSComm1.InBufferCount =14,就是TEXT1显示不出来数据,我的表头是耀华XK3190-A9,每贞有14组数据,我的程序如下:
Private Sub Command2_Click()
MSComm1.PortOpen = False
End SubPrivate Sub Form_load()
MSComm1.CommPort = 1      '使用COM1口
MSComm1.Settings = "1200,N,8,1" '1200波特率，无奇偶校验，8位数据位，1位停止位
MSComm1.InputLen = 0        '输入时读整个缓冲区
MSComm1.PortOpen = True     '打开端口
End Sub'数据读取及显示模块：
Private Sub Command1_Click()
Dim Instring As String                   '变量定义
MSComm1.Output = Chr(2) + Chr(65) + Chr(66) + Chr(48) + Chr(51) + Chr(3) '计算机发送指令ASCII：02为开始,65(A)地址为A,66(B)取毛重,48异或高4为,51异或底4为,3结束
                                          '读A（01）地址称重仪表的毛重值
Do While MSComm1.InBufferCount < 14      '等待接收全部数据
DoEvents
Loop
Instring = MSCcomm1.Input                 '取重量数据并显示
Text1.Text = Instring
End Sub帮我看看那里错误了.