帮我看看这段代码 为什么不好使

Question

Option Explicit
    Dim sdata As String
    Dim i As IntegerPrivate Sub Form_Load()
    MSComm1.CommPort = 1
    MSComm1.Settings = "1200,N,7,2" '此处设置必须与称的设置相同
    MSComm1.InputMode = comInputModeText
    MSComm1.InputLen = 0
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
    Text1 = ""
End SubPrivate Sub MSComm1_OnComm()
    Dim i As Integer
    Dim j As Integer
    Dim ss As String
    Dim ss1 As String
    Dim length As Integer
    Select Case MSComm1.CommEvent
        Case 2
            sdata = sdata & MSComm1.Input
            Text1 = Text1 & sdata '显示全部接收的内容
              If Mid(sdata, 9, 2) = vbCrLf Then
                i = InStr(sdata, ".") '确定小数点位置即公英制判断
                  If i = 3 Then
                    Text2 = "英制" & Mid(sdata, 1, 8)
                ElseIf i = 5 Then
                    Text2 = "公制" & Mid(sdata, 3, 6)
                End If
                sdata = ""
            End If
    End Select
End Sub

Answer 1

要我们看一段错误的代码,然后去猜想楼主的原意是要干吗?

Answer 2

把出错的地方标出来呀，还有错误提示是什么，这段代码也看不懂啊！