' **********************************************************
' module kernel32.dll
' ref http://msdn.microsoft.com/en-us/library/dd374130%28v=vs.85%29.aspx
'int WideCharToMultiByte(
'  __in   UINT CodePage,
'  __in   DWORD dwFlags,
'  __in   LPCWSTR lpWideCharStr,
'  __in   int cchWideChar,
'  __out  LPSTR lpMultiByteStr,
'  __in   int cbMultiByte,
'  __in   LPCSTR lpDefaultChar,
'  __out  LPBOOL lpUsedDefaultChar
');
Declare Function toMultiByte Lib "kernel32" _
Alias "WideCharToMultiByte" ( _
                CodePage&, _
		dwFlags%, _
		lpWideCharStr&, _
		cchWideChar&, _
                lpMultiByteStr&, _
		cbMultiByte&, _
		lpDefaultChar&, _
		lpUsedDefaultChar& _
		) As Long

' **********************************************************
' module kernel32.dll
' ref http://msdn.microsoft.com/en-us/library/ms679360%28v=vs.85%29.aspx
'DWORD WINAPI GetLastError(void);
Declare Function APILastError Lib "kernel32" Alias "GetLastError" () As Integer
				
Sub GetUTFString()
Const CP_UTF8& =  65001 
Const WC_ERR_INVALID_CHARS% = &H80
Dim lBuf&, lReslt&, sUTF8$, sUTF16$
    sUTF16 = "I know kungfu!(c)"

    ' получить размер буфера под utf8 строку
    lBuf = toMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, StrPtr(sUTF16 & vbNullChar), - 1 ,  0 ,  0 ,  0 ,  0 )
' пробовал явно указывать длину строки, - результат аналогичный
'Dim lLen&
'lLen = Len(sUTF16)
'lBuf = toMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, StrPtr(sUTF16 & vbNullChar), lLen + 1, 0, 0, 0, 0)
    If lBuf =  0  Then
        Debug.Print "toMB APILastEror: "; APILastError
    End If

    ' преобразовать utf16 в utf8
    lResult = toMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, StrPtr(sUTF16 & vbNullChar), - 1 , StrPtr(sUTF8), lBuf,  0 ,  0 ) 
'lResult = toMultiByte(CP_UTF8, WC_ERR_INVALID_CHARS, StrPtr(sUTF16 & vbNullChar), lLen + 1, StrPtr(sUTF8), lBuf, 0, 0)
End Sub