Поработать с Юникодом

Option Explicit
Private Declare Function TextOut Lib "gdi32" Alias "TextOutW" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
 
 
 
Private Sub Form_Load()
   FontName = "Times New Roman" ' нужно установить шрифт, который бы поддерживал уникод
   ScaleMode = 3
   FontSize = 16
   AutoRedraw = True
   
   
 
Dim s As String, b() As Byte, f As Integer, ln As Long, h As Long, y As Long
Dim allStr() As String
 
f = FreeFile
Open App.Path & "\unicod.txt" For Binary As #f
   s = Space$(LOF(f) - 2)
   Get #f, 3, s 'два байта пропускаем, потому что это просто знак, что файл в уникоде
Close #f
 
 
 
's = StrConv(s, vbUnicode) уже не нужно, при чтении из файла само конвертируется
 
ReDim b(7)
b(0) = 13
b(4) = 10
'это таким хитрым скособом оказался записан перевод строки!
 
allStr = Split(s, b) ' делим весть текст на строки (текстаут отказался сам печатать переход строки)
 
h = TextHeight("X") + 1 ' высота одной строки
y = 10 '  начальный отступ сверху
 
For f = 0 To UBound(allStr)
  ln = Len(allStr(f)) \ 2
  TextOut hdc, 10, y, allStr(f), ln
  y = y + h
  
Next
   
End Sub

Open App.Path & "\unicod.txt" For Binary As #f

   ReDim b(LOF(f) - 3) As Byte
   Get #f, 3, b 'считываем в байтовый массив
Close #f