MSComm读取电子称数据

Private Sub MSComm1_OnComm()
    On Error Resume Next
    recive = MSComm1.Input
    For i = 0 To UBound(recive)
        If begin = 0 Then
            If recive(i) = 2 Then '找到开始标识2，设置标志为1
                begin = 1
            End If
        Else
            str_Date(int_Jishuqi) = recive(i)
            int_Jishuqi = int_Jishuqi + 1 '计数器
            If int_Jishuqi > 16 Then '数组下标默认从0开始，，0-16共17个字节的数
            
                begin = 0
                int_Jishuqi = 0
                
               If str_Date(1) Mod 3 = 0 Then '
                    
                    a = CStr(Chr(str_Date(3))) & CStr(Chr(str_Date(4))) & CStr(Chr(str_Date(5))) & CStr(Chr(str_Date(6))) & CStr(Chr(str_Date(7))) & CStr(Chr(str_Date(8)))
                       If a > 80000 And a < 110000 Then
                        a1 = a
                        Text2.Text = CDbl(Round(a1 / 1000, 1))
                        
                    End If
                        If a < 80000 And a > 50000 Then
                        a2 = a
                        Text3.Text = CDbl(Round(a2 / 1000, 1))
                        
                        Text4.Text = ((Text2.Text) - (Text3.Text))
                        a3 = CStr(Text4.Text)