实时错误424 要求对象

我想编一个发送接收的小软件，代码如下：

Private Sub CommExit_Click()
MSComm1.PortOpen = False
End
End Sub


Private Sub CommReceive_Click()
Dim buf$
buf = MSComm1.Input
If Len(buf) = 0 Then
txtReceive.Text = "Empty"
Else
txtReceive.Text = buf
End If
End Sub

Private Sub CommSend_Click()
MSComm1.Output = TxtSend.Text   单步运行到这儿，老提示：实时错误 424   要求对象
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

编译时单步运行，串口能打开，但是点击发送按钮和接收按钮时，老是提示：实时错误 424   要求对象
本人刚刚接触VB，不知道哪里出错误了，请高手给指点指点