Тихо сам с собою я веду беседу... :)

[Войтулевич Валентин]

А вот умные люди подсказали наилучшее решение:
На нем и остановлюсь

'''''''''''''''''''''''''''

Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage
As Long, _
ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As
Long, _
ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long

Function ConvertUTF8ToWin(ByVal strUTF8 As String) As String
Dim st As String
st = String(Len(strUTF8) * 2, 0)
Call MultiByteToWideChar(65001, 0, strUTF8, Len(strUTF8), st, Len(st))
st = StrConv(st, vbFromUnicode)
If InStr(st, Chr(0)) > 0 Then st = Left(st, InStr(st, Chr(0)) - 1)
ConvertUTF8ToWin = st
End Function