Function ANSIToUnicode(ByVal strData)
    Dim ret, i, l, u
    l = Len(strData)
    ReDim ret(l - 1)
    For i = 1 To l
        u = AscW(Mid(strData, i, 1)) And &HFFFF&
        If u < 128 Then
            ret(i - 1) = ChrW(u)
        Else
            ret(i - 1) = Replace("&#x$1;", "$1", Hex(u))
        End If
    Next
    ANSIToUnicode = Join(ret, Empty)
End Function

------解决方案--------------------
高级。

------解决方案--------------------
帮顶！！

------解决方案--------------------
VBScript code

Function ToUnicode(ByVal s)
    Dim reg: Set reg = New RegExp
    reg.Pattern = "%(?:u([\dA-F]{4})|([\dA-F]{2}))"
    reg.IgnoreCase = True
    reg.Global = True
    ToUnicode = reg.Replace(Escape(s), "&#x$1$2;")
    Set reg = Nothing
End Function