高手看看这段程序错在哪里?!在线等~~

Question

Private Sub cmdexit_click()
   MSComm1.PortOpen = False
   End
End Sub
Private Sub cmdsend_click()
MSCcomm1.Output = Trim(txtsend3text) & vbCrLf
End SubPrivate Sub Command1_Click()
MSComm1.Output = txtSend.Text
End SubPrivate Sub Command2_Click()
End
End Sub
==================================================错误在后边这一段这是定时器控件,当被激活后就一直接收数据并显示在文本框中
Private Sub form_load()
MSComm1.PortOpen = True
End Sub
Private Sub Timer1_Timer()
 Dim buf$
 buf = Trim(MSComm1.Input)
 txtReceive.Text = txtReceive.Text&buf
End Sub
======================================================

Answer 1

txtReceive.Text = txtReceive.Text&buf改为：txtReceive.Text = txtReceive.Text & buf