Перекодировка в UTF-8 в VB6.0 средствами MultiByteToWideChar

lngRetval = MultiByteToWideChar(CP_UTF8, 0&, VarPtr(fbytBuff(0)), 2, VarPtr(bytBuff(0)), 255 \ 2)

lngRetval = WideCharToMultiByte(CP_UTF8, 0&, StrPtr(strString), Len(strString), VarPtr(fbytBuff(0&)), Len(strString) * 2&, 0&, 0&)

Option Explicit
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cbMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" (ByVal hwnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
Private Declare Function SysAllocStringByteLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Function SysAllocStringLen Lib "oleaut32" (ByVal olestr As Long, ByVal BLen As Long) As Long
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Ptr As Long, ByVal Value As Long)
 
Private Const CP_UTF8 As Long = 65001
Dim strTXT As String
 
' Конвертировать любой текст в UTF-8
Private Function ConvertToUTF8(strText As String) As String
    Dim nOutputByteLen As Long
    Dim arr() As Byte
    
    If Len(strText) > 0 Then
        nOutputByteLen = WideCharToMultiByte(CP_UTF8, 0&, StrPtr(strText), Len(strText), 0&, 0&, 0&, 0&)
        
        If nOutputByteLen > 0 Then
            ReDim arr(nOutputByteLen - 1)
            WideCharToMultiByte CP_UTF8, 0&, StrPtr(strText), Len(strText), VarPtr(arr(0)), nOutputByteLen, 0&, 0&
            
            ConvertToUTF8 = arr
        End If
    End If
End Function