Excel OnCom事件不会触发

我试图在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

无论代码是什么，事件都不会像未收到任何信息一样触发

我错过了什么

---

谢谢你。

正如我所说，你的

InBufferCount

。。无论代码如何，都不会触发该事件。。假设代码是100%正确的，问题是MSComm没有感觉到调制解调器接收到某些东西。。为了触发oncom事件，需要将RThreshold和streshold设置为1。那么如何实现呢？第338页？谢谢你。我知道怎么写这个。我只是不明白把它放在代码里的什么地方。