VB串口问题？

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

Private Sub Form_Load()
Dim nowstring As Variant
Dim instring As String
MSComm1.CommPort = 4  '用MSCOMM控件的COMMPORT属性定义使用COM4口
MSComm1.Settings = "4800,N,8,1" '定义串口的数据格式：4800 bit/s,无奇偶效验位，8位数据，一个停止位
MSComm1.InputLen = 1          '空间读入整个缓冲区
MSComm1.RThreshold = 1          '当接收到一个字符后，触发ONCOMM事件
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
      Case comEvReceive                 '接收字符的事件触发
      nowstring = MSComm1.Input
      instring = instring + nowstring
      txtRecive.Text1 = instring
End Select
End Sub
Private Sub 开始_Click()
MSComm1.Output = txtSend.Text2
End Sub
老是出现实时错误，"424" 要求对象？
希望知道的朋友说说？

谢谢大家指点，后来检查主要的原因是文本框的设置上错误，也就是txtRecive.Text1 = instring这句，改成了TEXT1.Text=instring,之后就行了。