Sub ПримерИспользования_ChangeTextCharset()

x = "d:\Andrew\*.003"
file = Dir(x)
Name = "d:\Andrew\" & file

' т.к Input из-за кодировки нерпаввильно считывает сточки, я пробую перекодировать файл в windows-1251
    Open Name For Input As #1    ' Open file for input.
        Do While Not EOF(1)    ' Check for end of file.
        Line Input #1, InputData    ' Read line of data.
    Debug.Print InputData    ' Print to the Immediate window.
Loop

    ИсходнаяСтрока = Name
    ' вызываем функцию ChangeTextCharset с указанием кодировок
    
    ПерекодированнаяСтрока = ChangeFileCharset(Name, "windows-1251")

    MsgBox "Результат перекодировки: """ & ПерекодированнаяСтрока & """", _
           vbInformation, "Исходная строка: """ & ИсходнаяСтрока & """"
Close #1
End Sub
Function ChangeFileCharset(ByVal Filename$, ByVal DestCharset$, _
                           Optional ByVal SourceCharset$) As Boolean
    ' функция перекодировки (смены кодировки) текстового файла
    ' В качестве параметров функция получает путь filename$ к текстовому файлу,
    ' и название кодировки DestCharset$ (в которую будет переведён файл)
    ' Функция возвращает TRUE, если перекодировка прошла успешно
    On Error Resume Next: Err.Clear
    With CreateObject("ADODB.Stream")
        .Type = 2
        If Len(SourceCharset$) Then .Charset = SourceCharset$    ' указываем исходную кодировку
        .Open
        .LoadFromFile Filename$    ' загружаем данные из файла
        FileContent$ = .ReadText   ' считываем текст файла в переменную FileContent$
        .Close
        .Charset = DestCharset$    ' назначаем новую кодировку
        .Open
        .WriteText FileContent$
        .SaveToFile Filename$, 2   ' сохраняем файл уже в новой кодировке
        .Close
    End With
    ChangeFileCharset = Err = 0
End Function