vb6.0 Byte数组转换为字符串(兼容中英文)

VB Byte数组转换为字符串(兼容中英文)：

Public Function ByteToStr(B() As Byte) As String 'Byte数组转字符串
Dim I, Tmp As String
For Each I In B '枚举整个数组赋值给I
If I > 127 Then '如果为汉字编码.(大于127为汉字,占两个字节)
If Tmp <> "" Then '如果临时变量不为空(为空为第一字节)
ByteToStr = ByteToStr & Chr(Tmp * 256 + I) '合并两个字节,转换为汉字.累加数据
Tmp = "" '清空临时变量
Else
Tmp = I '储存临时变量
End If
Else
ByteToStr = ByteToStr & Chr(I) '转换为汉字,累加数据
End If
Next
End Function

VB 两个Byte二进制值 合并转换为中文：Chr(Text1.Text * 256 + Text2.Text)