Как выбрать отдельные строки из txt файла с пом.VB

Формулировка задачи:

Добрый день!
Помогите, пожалуйста, мне нужно из текстового файла, объем которого около 4 Мb, выбрать отдельные строки, кот. содержат, например, фразу "Memory Usage". И записать эти строки в другой файл, желательно в файл Excel.
Можно ли это сделать с помощью макроса в Excel?
Подскажите, пожалуйста, я новичок

Решение задачи: «Как выбрать отдельные строки из txt файла с пом.VB»

textual
                            Листинг программы 
                        
                            sql_txt = Empty
<font color="blue">Dim</font> file_sql <font color="blue">As</font> <font color="blue">Integer</font>: file_sql = FreeFile

<font color="blue">Open</font> <font color="teal">"Q:\Programming\sql_txt.txt"</font> <font color="blue">For</font> <font color="blue">Input</font> <font color="blue">As</font> #file_sql
<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> EOF(file_sql)

<font color="blue">Line</font> <font color="blue">Input</font> #file_sql, sql_part

sql_txt = sql_txt & sql_part

<font color="blue">Loop</font>