Private Sub Command1_Click()
'...发送数据

MSComm1.OutBufferCount = 0 '...清空输出寄存器

MSComm1.Output = Text1.Text '...发送数据

End Sub

Private Sub Command2_Click()

'...退出

Unload Me

End Sub

Private Sub Form_Load()

'...初始化

MSComm1.CommPort = 1 '...使用Com1口

MSComm1.Settings = "9600,n,8,1" '...设置通讯参数

MSComm1.PortOpen = True '...打开串口

End Sub

Private Sub Mscomm1_Oncomm()

'...通讯事件发生

Select Case MSComm1.CommEvent

Case comEvReceive '...有接受事件发生

Text2.Text = MSComm1.Input '...接受显示数据
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select

End Sub
以上是小弟用VB编的串行通信程序的源代码,不知道为什么接收不到发送的消息,请各位大虾指点下!着急在线等,谢谢!

接受到的数据不能直接用text显示。你先把接受到的数据放到一个byte数组里，然后在转换成16进制就可以了。
最后再用text显示。

下面是我以前做过的一个小程序，你仔细看一下，应该对你有用的。
Private Declare Sub Sleep Lib "kernel32" (ByVal dvmilliseconds As Long)
Dim InByte() As Byte
Dim Buf As Variant

Private Sub Command1_Click()
MSComm1.PortOpen = True
MSComm1.Output = Text1.Text
Buf = ""
End Sub

Private Sub Form_Load()
Text1.Text = "a123456b"
End Sub

Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Sleep (1)
InByte = MSComm1.Input
For i = LBound(InByte) To UBound(InByte)
Buf = Buf + Hex(CStr(InByte(i)))
Next i
Text2.Text = Buf
MSComm1.PortOpen = False

Case comEvSend
MSComm1.Output = Text1.Text
End Select

End Sub