Чувствую что это все таки кодировка

Public Function WriteTextInNewTxtFile(FlilePath As String, Text As String) As Boolean
 
'----Объявление Переменных
Dim fso As Object
Dim ts As Object
    '----Переход к обработчику ошибок
    On Error GoTo WriteTextInNewTxtFile_Error
 
'----Выполнение программы
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile(FlilePath, True, True)
ts.WriteLine Text
ts.Close
    '----Присвоение значения функции
    WriteTextInNewTxtFile = True
 
'----Выход из программы
WriteTextInNewTxtFile_Exit:
    On Error Resume Next
    '----Очищение переменных
    Set ts = Nothing
    Set fso = Nothing
    Exit Function
 
'----Обработчик Ошибок
WriteTextInNewTxtFile_Error:
    '----Вывод сообщения об ошибке
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: ...", vbCritical, "Error!"
    '----Переход к выходу из программы
    Resume WriteTextInNewTxtFile_Exit
 
End Function

Sub ExportQueriesInTextFile()
 
Dim rst As DAO.Recordset
Dim sDataSet As String
Dim FilePath As String
Dim fso As Object
Dim ts As Object
 
Set rst = Application.CurrentDb.OpenRecordset("qryQueries", dbOpenSnapshot) 'Только просмотр
    Do Until rst.EOF = True 'Цикл до конца таблицы
        With rst.Fields
            sDataSet = sDataSet & !DataSetQuery & vbCrLf & vbCrLf & vbCrLf
        End With
        rst.MoveNext
        'Debug.Print sDataSet
    Loop
Debug.Print sDataSet
    
    
    
WriteTextInNewTxtFile "C:\Users\VG\DataBaseVG\New\prjAcElements\Queries\Queries.txt", sDataSet
 
 
ExportSourceCodesInTextFile_Bye:
    On Error Resume Next
    rst.Close
    'rstSub.Close
    Set rst = Nothing
    'Set rstSub = Nothing
    Exit Sub
 
ExportSourceCodesInTextFile_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: бла бла", vbCritical, "Error in module Form_фрмГорода"
    Resume ExportSourceCodesInTextFile_Bye
 
    
End Sub

Public Function WriteTextInNewTxtFile(sFilePath As String, sText As String) As Boolean
 
'----Объявление Переменных
Dim fso As Object
Dim ts As Object
    '----Переход к обработчику ошибок
    On Error GoTo WriteTextInNewTxtFile_Error
 
'----Выполнение программы
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.CreateTextFile(sFilePath, True)
    ts.Write sText
    ts.Close
    
    '----Присвоение значения функции
    WriteTextInNewTxtFile = True
 
'----Выход из программы
WriteTextInNewTxtFile_Exit:
    '----Очищение переменных
    On Error Resume Next
    Set ts = Nothing: Set fso = Nothing
    Exit Function
    Exit Function
 
'----Обработчик Ошибок
WriteTextInNewTxtFile_Error:
    '----Вывод сообщения об ошибке
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: ...", vbCritical, "Error!"
    '----Переход к выходу из программы
    Resume WriteTextInNewTxtFile_Exit
 
End Function

    str = "01 Проверка - строка 01" & vbCrLf & "02 Проверка - строка 02"
    path = "D:\temp\test.txt"
    
    WriteTextInNewTxtFile path, str

Dim fso As Object
Dim ts As Object

Private Sub TestOne()
Dim str$, path$
    str = "01 Проверка - строка 01" & vbCrLf & "02 Проверка - строка 02"
    path = "D:\temp\test.txt"
    
    WriteTextInNewTxtFile path, str
End Sub

Public Function WriteTextInNewTxtFile(FlilePath As String, Text As String) As Boolean

Public Function WriteTextInNewTxtFile(sFilePath As String, sText As String) As Boolean

Set ts = fso.CreateTextFile(sFilePath, True, True)

Function SaveTextToFile(ByVal txt$, ByVal filename$, Optional ByVal encoding$ = "windows-1251") As Boolean
' функция сохраняет текст txt в кодировке Charset$ в файл filename$
' [url]http://excelvba.ru/code/SaveTextToFile[/url]
' [url]http://excelvba.ru/code/encode[/url]
'-----------------------------------------------------------------
Dim FSO As Object
Dim ts As Object
Dim binaryStream As Object
 
On Error Resume Next: Err.Clear
    Select Case encoding$
 
        Case "windows-1251", "", "ansi"
            Set FSO = CreateObject("scripting.filesystemobject")
            Set ts = FSO.CreateTextFile(filename, True)
            ts.Write txt: ts.Close
            Set ts = Nothing: Set FSO = Nothing
 
        Case "utf-16", "utf-16LE"
            Set FSO = CreateObject("scripting.filesystemobject")
            Set ts = FSO.CreateTextFile(filename, True, True)
            ts.Write txt: ts.Close
            Set ts = Nothing: Set FSO = Nothing
 
        Case "utf-8noBOM"
            With CreateObject("ADODB.Stream")
                .Type = 2: .Charset = "utf-8": .Open
                .WriteText txt$
 
                Set binaryStream = CreateObject("ADODB.Stream")
                binaryStream.Type = 1: binaryStream.Mode = 3: binaryStream.Open
                .Position = 3: .CopyTo binaryStream        'Skip BOM bytes
                .flush: .Close
                binaryStream.SaveToFile filename$, 2
                binaryStream.Close
            End With
 
        Case Else
            With CreateObject("ADODB.Stream")
                .Type = 2: .Charset = encoding$: .Open
                .WriteText txt$
                .SaveToFile filename$, 2        ' сохраняем файл в заданной кодировке
                .Close
            End With
    End Select
    SaveTextToFile = Err = 0: DoEvents
End Function

Set ts = fso.CreateTextFile(strFlilePath, True, True)

Set ts = fso.CreateTextFile(sTXTPath, True, False)

Set ts = fso.CreateTextFile(sTXTPath, True)

Debug.Print sDataSet