VB开发道闸OCX的问题


Private Function Execute(order As Variant)
    WriteLog (Time() & ": Transmitting " & order & "......")
    MSCom.OutBufferCount = 0            '清空等待传送的字符个数
    MSCom.Output = order                '向道闸发送指令
    WriteLog (Time() & ": Size of " & MSCom.InBufferCount & ".")
    inputStream = ""                    '清空上次状态
    inputStream = MSCom.Input           '获取本次状态
    WriteLog (Time() & ": Received " & inputStream & ".")
End FunctionPublic Function GetState() As String
'    inputStream = MSCom.Input
    If StrComp(inputStream, "#RR~") = 0 Then '已复位且准备好
        GetState = "Ready"
        Exit Function
    End If
    If StrComp(inputStream, "#VV~") = 0 Then '闸杆已达垂直位置
        GetState = "Vertical"
        Exit Function
    End If
    If StrComp(inputStream, "#MM~") = 0 Then '闸杆处于中间过渡位置
        GetState = "Midst"
        Exit Function
    End If
    If StrComp(inputStream, "#HH~") = 0 Then '闸杆已达水平位置
        GetState = "Horizontal"
        Exit Function
    End If
    If StrComp(inputStream, "#EE~") = 0 Then '闸杆因故超时（6秒）未动作到位
        GetState = "Overtime"
        Exit Function
    End If
    If StrComp(inputStream, "#CC~") = 0 Then '车辆进入感应区
        GetState = "InInduction"
        Exit Function
    End If
    If StrComp(inputStream, "#GG~") = 0 Then '车辆离开感应区
        GetState = "OutInduction"
        Exit Function
    End If
    GetState = "NULL"
End Function
为什么inputStream获取的状态为空呢？如何获取道闸状态呐？？？