excel - 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

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

我在这里想念什么？

感谢你。