Проверить наличие символа в строке, считанной из файла - VB

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

Доброго времени суток! сразу скажу, что по форуму искал, ничего путного не нашел и поэтому прошу помощи. Задача следующая: кодом visual basic 6.0 (нужен именно он) нужно открыть текстовый файл, построчно считать его содержимое.После считывания каждой строки тут же реализовать проверку наличия в этой строке символа "@". Если символа "@" в строке нет, то считать следующую строку и повторить проверку наличия символа. Если есть символ "@", то всю эту строчку записать в файл. И так до конца файла. Пока есть вот такой кусок кода:

Private Sub cmdLoad_Click()
Dim FileNum As Integer
Dim txt As String
FileNum = FreeFile
 
Open "C:\Parser\1.txt" For Input As FileNum
 
' так считываю в переменную содержимое файла в цикле до конца файла
 Do Until EOF(FileNum)
   Line Input #FileNum, txt
 Loop
' так считываю в переменную содержимое файла в цикле до конца файла
...
...
...
Close #FileNum
End Sub

Как реализовать проверку на содержимого строчек на наличие символа "@" - хоть убей не понял! Прошу Вашей помощи. Форум - рыл. Не нашел. Заранее благодарен!

Решение задачи: «Проверить наличие символа в строке, считанной из файла»

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

                            Private Sub cmdLoad_Click()
    Dim FileNum As Integer, FileNum1 As Integer, txt As String
    FileNum = FreeFile
    Open "C:\Parser\1.txt" For Input As FileNum
         FileNum1 = FreeFile
         Open "C:\Parser\2.txt" For Output As FileNum1
            Do Until EOF(FileNum)
               Line Input #FileNum, txt
               If InStr(1, txt, "@") > 0 Then Write #FileNum1, txt
            Loop
         Close #FileNum1
    Close #FileNum
End Sub
                        