接收数据处理问题

Select Case MSComm1.CommEvent
Case comEvReceive '接收十六进制数据。并以十六进制显示
MSComm1.InputLen = 0
buffer = MSComm1.Input '接收数据至字符串中
BytesReceived() = buffer '将数据转入Byte数组中
For i = 0 To UBound(BytesReceived) '显示结果以十六进制显示
MSComm1.RThreshold = 7 Or MSComm1.RThreshold = 8
If Len(Hex(BytesReceived(i))) = 1 Then
HData = HData & "0" & Hex(BytesReceived(i))
Else
HData = HData & Hex(BytesReceived(i))
End If
txtreceive.Text = HData '最后将结果后入Text1中
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.InBufferCount = 0 '清除接收缓冲区
Next
End Select

08:36:51.488 7E 05 A1 30 33 01 01 02 10 00 B4 3C
08:36:52.031 7E 05 A1 30 33 09 EF
08:36:52.497 01 01 02 00 00 B9 FC
08:36:57.498 7E 05 A1 30 33 09 EF 01 01 02 10 00 B4 3C
有个问题，7e开始的数据是排除了，但是由于MSComm1.RThreshold = 7，只能屏蔽8位，后面的数据还是会接收，影响后面的逻辑判断。大佬这个问题咋处理呢。

解决了，想的复杂了，加个 Else
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.InBufferCount = 0 '清除接收缓冲区