多谢楼上
我的函数是
Public Function GbkStr(ByVal ss As String) As String
On Error Resume Next
Dim x As String
Dim Y As Variant
Dim i As Integer
Dim j As Integer
ReDim b(0 To (Len(ss) / 2)) As Byte
j = 0
For i = 1 To Len(ss)
x = Mid$(Trim(ss), i, 2)
Y = CLng("&H" & x)
If Y < 0 Then Y = Y + 65536
b(j) = Y
i = i + 1
j = j + 1
Next i
GbkStr = StrConv(b, vbUnicode)
End Function
请问具体该怎么做啊???