[更正] 原来我回答的HZ编码问题回答错了。对不起。

Question

HZ编码实际上是2字节编码。
是把GB2312编码的高位屏蔽了。
其分割标示符号是 ~{ 和  ~}
以下代码演示了如何还原HZ编码：Dim s As String, b() As Byte
Dim i As Integer'要处理的字符串
'当然，把~{和~}分割符号去掉后再处理效果更好
'不去掉也不影响，就是结果多了2个空格
s = "~{#?~}"
ReDim b(Len(s) - 1)For i = 1 To Len(s)
b(i - 1) = Asc(Mid(s, i, 1)) Or &H80
Nexts = StrConv(b, vbUnicode)
Debug.Print s
'输出的是问号
对上次给了错误回答的朋友表示歉意，实在对不起。