请教一个串口通信的问题！！！！急！！！！

Private Sub Command3_Click()
Comm1.PortOpen = False
End

End Sub

Private Sub Command2_Click()
Dim buf$
buf = Trim(Comm1.Input)
If Len(buf) = 0 Then
txtreceive.Text = Empty
Else
txtreceive.Text = buf
End If
End Sub
Private Sub Command1_Click()
Comm1.Output = Trim(txtsend.Text)

End Sub

Private Sub Form_Load()
Comm1.PortOpen = True
End Sub
按发送键以后再按接收键，但是没有接收数据，只显示空白！！！请各位老师指点！！我是一位刚学VB的人。要做一个串口通信测试！！！