Апострофф, Спасибо. На базе вашего кода сделал небольшую UDF для корректной обработки строк типа
Цитата
NATUREL (\u0441\u0432\u0435\u0442\u043b\u044b\u0439 \u0442\u0435\u043b\u0435\u0441\u043d\u044b\u0439)
Но с трудом вериться что нет такой штатной функции в VBA.
[vba]Код
Public Function Convert_UTF16_to_UTF8(str As String)
For i = 1 To Len(str)
If Mid(str, i, 2) = "\u" Then
Convert_UTF16_to_UTF8 = Convert_UTF16_to_UTF8 & ChrW(Val("&H" & Mid(str, i + 2, 4)))
i = i + 5
Else
Convert_UTF16_to_UTF8 = Convert_UTF16_to_UTF8 & Mid(str, i, 1)
End If
Next i
End Function
[/vba]