В продолжение темы... хотел почитать текстовый файлик из эксела. побился с экселем и в итоге...
обычный utf файл удалось только открывать файл через Workbooks.OpenText тогда кирилица сохраняется
а что бы через     Open "C:\a1.txt" For Input As #1 работать нужно просто использовать файлики ansi

Зарисовки кода

Sub ReadTextFileRu()
   Workbooks.OpenText filename:="C:\a1.txt", Origin:=65001
   Columns("A:A").Copy
End Sub
----------------через open кракозябры------------------------------
Sub ReadOpen TextFile1()
   Dim fileContent As String
   Dim dataArray() As String
   Dim i As Integer

   Open "C:\a1.txt" For Input As #1
   fileContent = Input$(LOF(1), 1)
   Close #1
   
   dataArray = Split(fileContent, vbCrLf)
   For i = 0 To UBound(dataArray)
       Range("B" & (i + 1)) = dataArray(i)
   Next i
End Sub
----------------через open кракозябры------------------------------
Sub ReadTextFile2()
   With CreateObject("Scripting.FileSystemObject")
       ' Try use UTF-8
       With .OpenTextFile("C:\a1.txt", 1, False, -1)
           fileContent = .ReadAll
           .Close
       End With
   End With

   fileLines = Split(fileContent, vbCrLf)
   For i = 0 To UBound(fileLines)
       Range("B" & (i + 1)) = fileLines(i)
   Next i
End Sub