Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" _
                    (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Sub Test()
Dim fso As New Scripting.FileSystemObject	'Достаточно 1 объекта на всю работу.
Dim txtFl As Scripting.File			'Формат файла не имеет значения:								                          		'важны байты, его составляющие
Set txtFl = fso.GetFile(PathToTxt)      	'DOS-текст (866 кодовая страница)
Dim txtStrmI As Scripting.TextStream		'работа со строками (типа StdIn,StdOut)
'Уходим от файловых операций к операциям с потоком символов:
Set txtStrmI = txtFl.OpenAsTextStream(ForReading, TristateFalse)
'Вместо работы с отдельными строками, считываемыми из потока,
'будем работать со всеми символами потока, включая vbCrLf.
'С этой целью утилизируем ещё одно преимущество современной техники - большую память:
'в одной VB-строке можно разместить все Unicode-символы текстового файла.
Dim sDOS As String			'Исключительно для читабельности кода
Dim sASCII As String			'резервируем ДВЕ строки. WinAPI правильно
Dim RetCode As Long			'перекодирует текст и в случае задания dst=src.
'Без всякого цикла загоняем все ЛОГИЧЕСКИЕ строки в единую строку VB
sDOS = txtStrmI.ReadAll                 'весь файл с DOS-текстом загоняем в VB-строку
RetCode = OemToChar(sDOS, sASCII)   'к-рую перекодируем средствами самой Windows.
sDOS = ""                                   'очищаем ненужную в дальнейшем строку
'Set txtStrmO = fso.OpenTextFile(ThisWorkbook.Path & "\ОТЧЕТ.txt", ForWriting, True, TristateFalse)
'txtStrmO.Write sASCII                  'эти три оператора остались из отладочного варианта;
'txtStrmO.Close						    
'Далее можно проводить работу с данными без файловых операций. 
'Можно выделять строки, разбирать строки на термы "от головы до хвоста (InStr)",
' "от хвоста до головы (InStrRev)", "из глубины души (Mid)". Напр.:   
Dim p As Long, q As Long, sPayOrder As String, s As String, v As Variant, k As Long
p = InStr( 1 , sASCII, VTotal)                  'Извлекаем строку, содержащую DOS-сформированную
q = InStr(p, sASCII, vbCrLf)                  'базу налогообложения.
v = Split(Mid(sASCII, p, q - p +  1 ), "|")   'Подготовим строку для преобразования
k = UBound(v,  1 ) -  1                             'в Double
sDOS = v(k): sDOS = Replace(sDOS, ".", ",")   'и сохраним "на потом" в sDOS.

p = InStr( 1 , sASCII, OsProd, vbTextCompare)    'Из всего документа нам нужна только часть налоговой
q = InStr(p, sASCII, EOPartOne, vbTextCompare) 'с необходимыми и достаточными исходными данными.
sPayOrder = Mid(sASCII, p, q - p)              'Эта часть найдена и помещена в строку-хранилище...
'
' и т.д.
'
End Sub