ник: Анатолий (Киев)
>а как убрать последние 3 строки
Ну, например, если в строке есть "ИТОГО:", то:
IF s Like "*ИТОГО:*" Then Exit Do
Другой выриант - прочитать в переменную всё содержимое файла (функции Input и LOF), функцией Split() получить массив строк, и затем записывать все строки кроме 4-х первых и 3-х последних.