OnComm事件不会触发

Question

我正在尝试接收3g调制解调器的短信。

这是我用来捕获所有传入短信的代码。

Private Sub MSComm1_OnComm()
   Select Case MSComm1.CommEvent
      Case comEvReceive
         Do While MSComm1.InBufferCount > 0
            strInput = strInput & MSComm1.Input
         Loop

         Sheets("Sheet1").Range("A1").Text = strInput
   End Select
End Sub

无论代码如何，事件都不会触发，好像什么也没收到。

我在这里想念什么？

谢谢。