http://topic.csdn.net/u/20080918/22/50cfecd1-28d3-465c-8e00-e9d353d0dd05.html下面再节选一下贴子里面的方法.'调用实例: 'MsgBox strUcodeToCh("\u4f31\u7ba1\u6211\u5436\u4e48\u591a") Private Function strUcodeToCh(strUCode$) As String Dim v, i&, l&, strResult$ strUCode = Mid(strUCode, 2) v = Split(strUCode, "\") For i = 0 To UBound(v) l = CLng("&H" & Mid(v(i), 2, 2)) * 256 + CLng("&H" & Mid(v(i), 4)) strResult = strResult & ChrW(l) Next strUcodeToCh = strResult End Function
'MsgBox strUcodeToCh("\u4f31\u7ba1\u6211\u5436\u4e48\u591a")
Private Function strUcodeToCh(strUCode$) As String
Dim v, i&, l&, strResult$
strUCode = Mid(strUCode, 2)
v = Split(strUCode, "\")
For i = 0 To UBound(v)
l = CLng("&H" & Mid(v(i), 2, 2)) * 256 + CLng("&H" & Mid(v(i), 4))
strResult = strResult & ChrW(l)
Next
strUcodeToCh = strResult
End Function
看看这个