...
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputMode = 1
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
...
Private Sub MSComm1_OnComm()
On Error Resume Next
Dim BytesReceived() As Byte
Dim buffer As String
Dim data(0 To 31) As Byte
Dim temp(0 To 3) As Byte
Dim value(0 To 6) As Integer
Dim vvalue(0 To 6) As Double
Dim fvalue(0 To 6) As Double
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvRing
Case comEvReceive
MSComm1.InputLen = 0
buffer = MSComm1.Input
BytesReceived() = buffer
For i = 0 To 31
data(i) = BytesReceived(i)
Next
If data(0) = 170 And data(1) = 170 And data(30) = 187 And data(31) =187 Then
temp(0) = data(2)
temp(1) = data(3)
temp(2) = data(4)
temp(3) = data(5)