VB6 Работа с файлом и занесение данных в таблицу

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

Доброго времени суток.
Проблема такова, что имеется выходной файл расчётной программы и с него надо считать лишь определённые данные, занеся их при этом в таблицу.
Собственно вопросы:
файл считываем через команду Open или ReadFile(путь к файлу);
считывание строк и поиск нужных значений через цикл:
If mid(string, n, k)=str(i) then
i=instr(U235) , где U235 как одна из искомых величин в файле
т.е. как правильно построить цикл, чтобы прочитать весь файл и забрать необходимые данные?
И в дальнейшем, как занести эти данные в таблицу(удобней, скорей всего, привязать Exсel) ?
Прошу подтолкнуть на правильный ход мысли.

Решение задачи: «VB6 Работа с файлом и занесение данных в таблицу»

textual
                            Листинг программы 
                        

                            Dim A As Integer, B As Integer, t As String
A = FreeFile
Open "v:\1.txt" For Input Access Read Shared As #A
B = FreeFile
Open "v:\2.txt" For Output Access Write As #B
Do While Not EOF(A)
  Line Input #A, t
  Print #B, t + "bebebe"
Loop
Close #B
Close #A

                        