求救,串口问题

我想将comm2发送的数据,comm1接收显示在文本框中,请问要怎么做啊?我的代码如下可是不能显示数据,请大哥们帮我改改
  Private m_nReceiveFlag As IntegerPrivate Sub cmdReceive_Click()
    m_nReceiveFlag = 1
End SubPrivate Sub comm_OnComm()
      Dim buf As String
       Dim intInputLen As Integer
   
      If m_nReceiveFlag = 1 Then
        If Not comm.PortOpen Then
          comm.CommPort = 1
          comm.Settings = "4800,n,8,1"
          comm.PortOpen = True
        End If
        
        comm.InputMode = comInputModeBinary
        buf = com.Input
        Text1.Text = buf
      End If
       
End SubPrivate Sub Form_Load()
        '初始化串行口
        comm.CommPort = 1
        comm.Settings = "4800,n,8,1"
        comm.PortOpen = True
End SubPrivate Sub Form_Unload(Cancel As Integer)
   comm.PortOpen = False
End Sub