怎样将两个ascii码合成一个汉字？

[Jerrych]

[Jerrych]

比如81 34

[iwin]

public function FixAsc(byval HiAsc as long, byval LoAsc as long) as string
FixAsc=StrConv(Chr(HiAsc), vbFromUnicode) + StrConv(Chr(LoAsc), vbFromUnicode)
end function

[TopHead]

Dim byt(1) As Byte, str As String
byt(0) = 196 '汉字的高位
byt(1) = 227 '汉字的低位
str = StrConv(ChrB(byt(0)) & ChrB(byt(1)), vbUnicode)

[yiwei]

这样：
chr(81*256+34)

[Jerrych]

我已经试过strconv合并，但并不是所有的字都可以，下边是例子和过程代码
Public Function FixAsc(ByVal HiAsc As Long, ByVal LoAsc As Long) As St
ring
FixAsc = StrConv(Chr(HiAsc), vbFromUnicode) + StrConv(Chr(LoAsc), vb
FromUnicode)
End Function
下岗女工莫流泪-> 下 尀 女 崀 流 氀(中间每个汉字之间用空格隔开了)
下边是这几个字的高低位码
| 11 78| 151 92| 115 89| 229 93| 171 131| 65 109| 234 108
下边是这几个字的编码
|-12350|-18214|-14930|-18012|-15190|-15881|-16159
请各位大虾帮我解决解决,先谢谢了

[「已注销」]

增加数组大小，试看看
Dim c(2) As Byte, str As String
c(0) = 196 '汉字的高位
c(1) = 227 '汉字的低位
c(2) = 0
str = StrConv(ChrB(c(0)) & ChrB(c(1)), vbUnicode)

[iwin]

试试这个：
Public Function FixAsc(ByVal HiAsc As Long, ByVal LoAsc As Long) As String
FixAsc = ChrB(HiAsc) + ChrB(LoAsc)
End Function