Удаление ненужных строк

[Nicolas_46]

Подскажите пожалуйста решение такой проблеммы.
в файле необходимо удалить ненужные строки.
я понял что просто так это нельзя сделать, нужно открыть исходный файл, открыть новый, построчно перекидать исходник исключая те строки которые не нужны, удалить исходник на его место сохранить новый.

как это сделать с помощью VBA?
нужно удалить все пустые строки и строки содержащие такую фразу:
"ZAPAS<1 ,УСЛОВИЕ КОЭФФИЦИЕНТОВ ЗАПАСА НЕ ВЫПОЛНЕНО"

Пример файла скинул.
Заранее спасибо

[Hugo121]

И причём тут Эксель?
Сохранить код как somename.vbs, даблкикнуть (пути только поменяйте, лень было диалог городить):

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.OpenTextFile("c:\Temp\Nicolas_46\rez02.re", 1)    'Подставьте свой путь к txt-файлу
arrstr = Split(ts.ReadAll, vbCrLf)    'массив строк текста целиком
ts.Close

Set outFile = fso.CreateTextFile("c:\Temp\Nicolas_46\rez02.re")    'Подставьте свой путь к txt-файлу
For i = 0 To UBound(arrstr)
    If Len(Trim(arrstr(i))) > 0 Then
        If Trim(arrstr(i)) <> "ZAPAS<1 ,УСЛОВИЕ КОЭФФИЦИЕНТОВ ЗАПАСА НЕ ВЫПОЛНЕНО" Then
            outFile.WriteLine arrstr(i)
        End If
    End If
Next

outFile.Close

[Nicolas_46]

спасибо огромное все работает, как часы)))