' CodePage constant for UTF-8
Private Const CP_UTF8 As Long = 65001
' Maps a character string to a UTF-16 (wide character) string
Private Declare Function MultiByteToWideChar Lib "kernel32.dll" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpMultiByteStr As String, _
    ByVal cchMultiByte As Long, _
    ByVal lpWideCharStr As Long, _
    ByVal cchWideChar As Long) As Long
' Maps a UTF-16 (wide character) string to a new character string
Private Declare Function WideCharToMultiByte Lib "kernel32.dll" ( _
    ByVal CodePage As Long, _
    ByVal dwFlags As Long, _
    ByVal lpWideCharStr As Long, _
    ByVal cchWideChar As Long, _
    ByVal lpMultiByteStr As Long, _
    ByVal cchMultiByte As Long, _
    ByVal lpDefaultChar As Long, _
    ByVal lpUsedDefaultChar As Long) As Long
  
Public Function ToUTF8(ByVal Value As String) As String
    Dim nRet As Long
    Dim strRet As String
    strRet = String(Len(Value) * 2, vbNullChar)
    nRet = WideCharToMultiByte(CP_UTF8, &H0, StrPtr(Value), Len(Value), StrPtr(strRet), Len(Value) * 2, 0&, 0&)
    ToUTF8 = Left$(StrConv(strRet, vbUnicode), nRet)
End Function
 
Public Function FromUTF8(ByVal Value As String) As String
    Dim nRet As Long
    Dim strRet As String
    strRet = String(Len(Value), vbNullChar)
    nRet = MultiByteToWideChar(CP_UTF8, &H0, Value, Len(Value), StrPtr(strRet), Len(strRet))
    FromUTF8 = Left$(strRet, nRet)
End Function