死在百慕大:串口通信方面的问题!!

我要做一个COM1口有路的数据,经过一定的协议，送到COM2口，COM2口是接收的，在其中也根据协议收数到相对应的地址空间，也就是说，是用VB做一个模拟8路数据的异步通信

下面有一段程序,是我编的PC机上两个串口之间通信看看有谁给改一下啦!谢啦!!
Private Sub Form_Load()
MSComm1.OutBufferCount = 0 '清除发送缓冲区数据
MSComm2.OutBufferCount = 0
MSComm1.InBufferCount = 0 '清除接收缓冲区数据
MSComm2.InBufferCount = 0
MSComm1.Output = Text2Send.Text
For i = 1 To 2000
Next
MSComm2.Output = Text4Send.Text
For j = 1 To 2000
Next
End Sub
Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent
Case comEvReceive
Dim str As String
str = MSComm2.Input
Text1Receive.Text = Text1Receive.Text + str
End Select
End Sub

Private Sub MSComm2_OnComm() '接收数据
Select Case MSComm2.CommEvent
Case comEvReceive
Dim str As String
str = MSComm1.Input
Text3Receive.Text = Text3Receive.Text + str
End Select
End Sub
Private Sub Option1_Click()

MSComm1.PortOpen = True
End Sub

Private Sub Option2_Click()

MSComm2.PortOpen = True
End Sub