Private Sub Command1_Click()
VBA.MsgBox GBK2Unicode("卧室")
End Sub
Public Function GBK2Unicode(s As String) As String
Dim buffer() As Byte
buffer = VBA.StrConv(VBA.StrConv(s, vbUnicode), vbFromUnicode)
Dim i As Long
For i = LBound(buffer) To UBound(buffer)
GBK2Unicode = GBK2Unicode & "%" & VBA.Right("00" & VBA.Hex(buffer(i)), 2)
Next i
End Function