VB 6 Не отображаеются русские символы

Формулировка задачи:

Есть программа которая получает сообщения из icq на английском сообщения отображаются отлично а когда пишу привет приходит такое ?@825B ЧТо только не провал в чем проблема и как решить не знаю уже более года Где то ошибка не знаю где И так

Private Function Utf82Ascii(ByVal strM As String) As String
    Dim lngMSize As Long, lngWSize As Long
    Dim strWide As String, bytUtf8() As Byte
    Dim lngRes As Long
    If LenB(strM) = 0 Then Exit Function
    bytUtf8 = StrConv(strM, vbFromUnicode)
    lngMSize = UBound(bytUtf8) + 1
    lngWSize = lngMSize * 2
    strWide = String$(lngWSize, vbNullChar)
    lngRes = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), lngMSize, StrPtr(strWide), lngWSize)
    Utf82Ascii = Left$(strWide, lngRes)
End Function
Private Function ascii2utf8(data As String) As String
    Dim i, j As Byte
    Dim tmp As String
    For i = 1 To Len(data)
    j = GetByte(data, i)
        If j > 191 And j <= 255 Then
            tmp = 53200 + j
            If tmp > 53439 Then tmp = 192 + tmp
            tmp = Word2Str(tmp)
             ascii2utf8 = ascii2utf8 & tmp
             Else
             ascii2utf8 = ascii2utf8 & Chr(j)
        End If
    Next i
End Function
 
Private Function dword2str(data As Long) As String
    Dim i As Byte
    dword2str = hex2str(Hex(data))
    For i = 1 To 4
    If Len(dword2str) < 4 Then dword2str = Chr$(0) & dword2str
    Next i
End Function
If Len(dword2str) < 4 Then dword2str = Chr$(0) & dword2str
Next i
End Function

Решение задачи: «VB 6 Не отображаеются русские символы»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
 
Private Sub Form_Load()
    Dim src() As Byte, dst As String, l As Long
    
    ' ГЋГІГЄГ°Г»ГўГ*ГҐГ¬ UTF8 ГґГ*Г©Г«
    Open "c:\test.txt" For Binary As #1
    ReDim src(LOF(1) - 1)
    Get 1, , src
    Close 1
    
    ' ГЏГ®Г«ГіГ·Г*ГҐГ¬ Г¤Г«ГЁГ*Гі
    l = MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), 0)
    dst = Space(l)
    ' ГЉГ®Г*ГўГҐГ°ГІГЁГ°ГіГҐГ¬
    Call MultiByteToWideChar(CP_UTF8, 0, src(0), UBound(src) + 1, StrPtr(dst), l)
    
End Sub
                        