请问如何用VB6.0撰写RS232发送与接收程式( PC to PC)，谢谢

各位前辈您好,
以下是我自己撰写的内容，请问大大知道问题出在哪吗？谢谢您的指导。

'这是发送讯息,这样写对吗？
Private Sub Command2_Click()

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True
MSComm1.Output = "Test"
MSComm1.PortOpen = False
End Sub
------
'这是接收讯息,这样写对吗？
Private Sub MSComm1_OnComm()
Dim TheData As String

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
TheData = ""
TheData = MSComm1.Input
MSComm1.PortOpen = False
MsgBox TheData

End Sub
-----

各为前辈您好,
我目前使用单机测试，rs232 port1 的pin 2 , pin3短路，
请问有人可以提供简易程式供参考吗？谢谢