改进这代码：wyh: Private Sub MSComm1_OnComm() With MSComm1 .InputLen = 1 Dim buffer() As Byte Dim count As Integer If MSComm1.CommEvent = comEvReceive Then count = MSComm1.InBufferCount buffer = MSComm1.Input '将16进制字节数据转换为字符串 Print HexToStr(buffer) End If wyh: Private Function HexToStr(buffer() As Byte) As String Dim i As Integer Dim str As String For i = 0 To UBound(buffer) str = str & Right("00" & Hex(buffer(i)), 2) Next i HexToStr = str End Function 让它能够先读取3个字节，再

& Chr(buffer(i)) Next i HexToStr = str End Function

改进建议：

1.添加错误处理：在代码中应该添加错误处理，以确保代码的健壮性和可靠性。

2.优化性能：可以使用StringBuilder类来优化字符串拼接操作，以提高代码的效率。

3.代码风格：应该遵循一致的代码风格，命名规范和注释习惯，以提高代码的可读性和可维护性。

4.移除无用代码：应该移除没有使用到的代码，以减少代码的冗余性和复杂性。

改进后代码：

wyh:

Private Sub MSComm1_OnComm()
On Error Resume Next

With MSComm1
.InputLen = 1
Dim buffer() As Byte
Dim count As Integer

If .CommEvent = comEvReceive Then
count = .InBufferCount
buffer = .Input

'将16进制字节数据转换为字符串
Debug.Print HexToStr(buffer)
End If
End With
End Sub

Private Function HexToStr(buffer() As Byte) As String
On Error Resume Next

Dim i As Integer
Dim sb As New StringBuilder

For i = 0 To UBound(buffer)
sb.Append(Chr(buffer(i)))
Next i

HexToStr = sb.ToString()
End Function