VB如何转换Unicode编码为中文

[JzKx]

\u6d4b\u8bd5\u5185\u5bb9 编码内容VB如何转成中文

[笨狗先飞]

用法 GetString("\u6d4b\u8bd5\u5185\u5bb9")

Public Function GetString(ByVal Data As String) As String
    Dim Arr() As String, I As Integer
    Arr = Split(Data, "\u")
    For I = 0 To UBound(Arr)
        If Len(Arr(I)) > 0 Then GetString = GetString & ChrW("&H" & Arr(I))
    Next
End Function

[笨狗先飞]

chrw("&H6d4b") & chrw("&H8bd5") & chrw("&H5185") & chrw("&H5bb9")

[JzKx]

引用 1 楼 bakw 的回复:

chrw("&H6d4b") & chrw("&H8bd5") & chrw("&H5185") & chrw("&H5bb9")

用函数怎么写？