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)