Dim bArr(1) As Byte

Dim sMe as String

bArr(0) = 206

bArr(1) = 210

sMe = StrConv(bArr, vbUnicode)

 

此方式还可用于COM口通讯时汉字的还原。

 

另外还有一种还原方法:

 

Dim sMe as String

Dim PutCode As String

PutCode = "CED2"

sMe = Chr("&H" + PutCode)