Public Declare Function MultiByteToWideCharA Lib "kernel32.dll" Alias "MultiByteToWideChar" ( _
    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

Public Function DecodeUTF8(ByVal sInput As String) As String
Dim iStrSize As Long, lMaxSize As Long, str1 As String
Dim p As Long
Dim str2 As String
    If Len(sInput) =  0  Then Exit Function
    lMaxSize = Len(sInput)
    str1 = String$(lMaxSize,  0 &)
    iStrSize = MultiByteToWideCharA( 65001 ,  0 &, sInput, &HFFFF, StrPtr(str1), lMaxSize)
    If iStrSize >  0  Then
        DecodeUTF8 = Left$(str1, iStrSize -  1 )
    Else
        DecodeUTF8 = sInput
    End If
End Function