使用mscomm控件将数据从一个文本框传输到另一个文本框

Question

我想将数据从一个文本框发送到另一个文本框，我编写了如下代码...没有错误，但我没有收到任何数据

Private Sub Command1_Click()
    Dim inp As String
    Dim oup As String
    inp = Text1.Text
    MSComm1.Output = inp
    oup = MSComm2.Input
    Text2.Text = oup
End Sub

Private Sub Form_Load()
    MSComm1.CommPort = 3
    MSComm2.CommPort = 8
    MSComm1.PortOpen = True
    MSComm2.PortOpen = True
    MSComm1.Settings = "9600,n,8,1"
    MSComm2.Settings = "9600,n,8,1"
    MSComm2.RThreshold = 1
    'MSComm1.InputLen = 0
End Sub