关于MSCOMM控件的问题实现一台电脑的两个COM口通讯

Question

既COM1口发送数据由COM2口接受，使用两个MSCOMM控件！
下面是我写的一小段程序，总是不能达到目的，请高手指点一下，有分！
请问问题出在哪里，发送4个数字！
谢谢
Private Sub start_Click()
MSComm1.CommPort = 1                    '设定Com1
If MSComm1.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1"         '9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True                 '打开串口
End If
MSComm1.OutBufferCount = 0              '清空发送缓冲区
MSComm1.InBufferCount = 0          '清空接收缓冲区
buffer = Text1.Text
MSComm1.Output = buffer
MSComm2.CommPort = 2                   '设定Com2
If MSComm2.PortOpen = False Then
MSComm2.Settings = "9600,n,8,1"         '9600波特率，无校验，8位数据位，1位停止位
MSComm2.PortOpen = True                 '打开串口
End If
MSComm2.OutBufferCount = 0              '清空发送缓冲区
MSComm2.InBufferCount = 0               '清空接收缓冲区
MSComm2.InputMode = comInputModeText
MSComm2.RThreshold = 4
MSComm2.InputLen = 0
buffer = MSComm2.Input
Text2.Text = buffer
End Sub