Option Explicit

Private Sub Form_Load()
With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.InputMode = 1 '以二进制方式接收（默认的是文本形式）
.RThreshold = 4 ' 接收缓冲区达到4个字节就产生接收事件
.PortOpen = 1
End With
End Sub
Private Sub MSComm1_OnComm()
Dim p() As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
p = MSComm1.Input
Text1 = p(0)
Text2 = p(1)
Text3 = p(2)
Text4 = p(3)
End Select
End Sub