Перекодировка Unicode в Win1251 и наоборот

s=vba.StrConv(ss,vbFromUnicode)

Dim s As String
Dim c As Integer
Dim b(1) As Byte
c = 1092 ' код буквы ф в UNICODE
b(0) = c Mod 256
b(1) = c  256
s = b
MsgBox (s) ' ы
с = Asc(s)
MsgBox с ' Код первой буквы в ANSI

Dim s As String
Dim c As Integer
Dim b(1) As Byte
c = 1092 ' код буквы ф в UNICODE
b(0) = c Mod 256
b(1) = c  256
s = b
MsgBox (s) ' ф
с = Asc(s)
MsgBox с ' Код буквы ф в ANSI

Dim s As String
Dim c As Integer
Dim b() As Byte
s = 'ф' ' Буква хранится в кодировке UNICODE
b = s
c = b(1) * 256 + b(0)
' как вариант, без использования динамического байтового массива
' c = AscB(MidB(s, 2, 1)) * 256 + AscB(MidB(s, 1, 1))
MsgBox c ' Код буквы ф

Const CP_UTF8 = 65001
Private Declare Function MultiByteToWideChar Lib 'Kernel32.dll' _
( _
  ByVal CodePage As Long, _
  ByVal dwFlags As Long, _
  ByRef lpMultiByteStr As Byte, _
  ByVal cbMultiByte As Long, _
  ByRef lpWideCharStr As Byte, _
  ByVal cchWideChar As Long _
) As Boolean
Sub test()
Dim b(7) As Byte
Dim i(7) As Byte
Dim s As String
' Прочитали b из файла, например, следующие значения
b(0) = &HD1 ' ф
b(1) = &H84 '
b(2) = &HD1 ' ы
b(3) = &H8B '
b(4) = &HD0 ' в
b(5) = &HB2 '
b(6) = &HD0 ' а
b(7) = &HB0 '
If MultiByteToWideChar(CP_UTF8, 0, b(0), 8, i(0), 4) Then
  s = i
  MsgBox (s) ' фыва
End If
End Sub