【VB.NET】 エンコード・デコード \uXXXX

'ユニコードエスケープをアンエスケープ

    Function Deco(ByVal str)
        Dim stArrayData As String() = Split(str, "\u")
        Dim mes As String = stArrayData(0)
        For i = 1 To UBound(stArrayData)
            Dim code As String = Strings.Left(stArrayData(i), 4)
            Dim left As String = Strings.Mid(stArrayData(i), 5)
            Dim intData As Integer = Convert.ToInt32(code, 16)
            mes = mes & ChrW(intData) & left
        Next
        Return mes
    End Function