VBA Access - открытый текстовый файл (ANSI), чтение и сохранение как UTF-8 без спецификации

Question

У меня есть текстовый файл (ansi), и я хотел бы открыть, прочитать содержимое и сохранить файл, например UTF-8, без спецификации, может быть с другим именем.

Я много чего пробовал, и я удалось сохранить как UTF-8 без спецификации, но содержимое было пустым, и когда мне удалось сохранить содержимое, файл возвращается к типу ANSI или UTF-8 с спецификацией; (

Я использую Access 365 с VBA6

Большое спасибо.

Мой сценарий и файл: (У меня есть командная кнопка для вызова этой функции)

'******** *******************

Function ReadX()
Dim path As String
Const CharSet = "utf-8"

path = "C:\PUBLIC\fileDAT\Teste1.DAT"

Static obj As Object
If obj Is Nothing Then

Set obj = CreateObject("ADODB.Stream")
obj.CharSet = CharSet
obj.Open
obj.LoadFromFile "C:\PUBLIC\fileDAT\Teste1.DAT"
'  ReadFile = obj.ReadText()    ' ***** I comment this line, because give me an object error
 obj.Close
 End If
  End Function

'********************* ******

Function WriteX()
Dim path As String
Const CharSet = "utf-8"
path = "C:\PUBLIC\fileDAT\Teste1.DAT"
Static obj As Object
 If obj Is Nothing Then
  Set obj = CreateObject("ADODB.Stream")
  obj.CharSet = CharSet
  obj.Open
 'obj.WriteText ReadX ' with this line I can subscribe the file with UTF-8( 
  without BOM ) but without contents,
  obj.SaveToFile path,2
  obj.Close
End If
End Function