Добрый!
Нашел такой модуль
Code:
Sub Create_UTF8_text_file(ByVal filename As String, ByVal txt As String)
Dim ADOStream
Set ADOStream = CreateObject("ADODB.Stream")
With ADOStream
.Open
.Position = 0
.Charset = "utf-8"
.WriteText txt
.SaveToFile filename, 2 ' overwrite if exists
.Close
End With
Set ADOStream = Nothing
End Sub
, сделал с его помощью текстовый файл в формате UTF-8, в плановой функции тоже поменял тип, загрузилось.
Но потом решил сделать новую функцию (та некрасиво называлась), полностью ей идентичную (ту уже удалил) - опять та же проблема.