Примеров могу привести множество, но сомневаюсь, что их будет легко адаптировать к Вашим требованиям.  
 
Всё дело в необходимости "проверять её на соответствие заданным условиям".  
Не зная этих условий, сложно посоветовать что-то конкретное.  
 
Прикрепите к сообщению архив, в котором будут:  
1) текстовый файл (хватит 10-20 разных строк)  
2) Таблица Excel, которая должна получиться в результате.  
 
Чётко сформулируйте условия, на основании которых надо производить отбор строк.  
Укажите, где (в какой папке) макрос должен искать текстовые файлы.  
Формировать одну таблицу из всех текстовых файлов, или для каждого текстового файла - отдельную таблицу?  
 
PS: Макрос совсем не сложный (15-20 строк кода) - делал такие десятки раз.  
Вот только на выяснение нюансов тратится много времени...

Вот пример макроса:  
 
Sub Main()  
   Dim SourceFolder As String, DestinationFolder As String, ce As Range  
   InitialPath = ThisWorkbook.Path: Dim coll As New Collection  
   Application.ScreenUpdating = False  
 
   '    SourceFolder = GetFolderPath("Выберите исходную папку для поиска файлов", InitialPath)  
   '    If SourceFolder = "" Then MsgBox "Необходимо указать папку!", vbCritical, "Папка не выбрана": Exit Sub  
   SourceFolder = "C:\TEMP\ACCESS\"  
 
   On Error Resume Next  
   '    If Dir(DestinationFolder, vbDirectory) = "" Then MkDir DestinationFolder    ' если конечная папка не существует, создаём её  
 
   Filename = Dir(SourceFolder & "*.txt")  
   While Filename <> ""  
       coll.Add Filename: Filename = Dir  
   Wend  
 
   Set fso = CreateObject("scripting.filesystemobject")  
 
   For Each Filename In coll  
       Debug.Print Filename  
       Application.StatusBar = "Обрабатывается файл  " & Filename    ' вывод информации в строку состояния  
 
       txt = "": Set ts = fso.OpenTextFile(SourceFolder & Filename, 1, True): txt = ts.ReadAll: ts.Close  
       arr = Split(txt, vbNewLine)    ' массив строк  
       For i = LBound(arr) To UBound(arr)  
           строка = Application.Trim(arr(i))  ' убираем повторяющиеся пробелы  
           массив = Split(строка, " ")   ' массив значений, разделённых пробелами  
 
           If массив(5) = "CONNECT" And Split(массив(6), ":")(1) = 443 Then    ' здесь пишем условия  
               ' в данном примере условия: CONNECT через 443 порт  
 
               ' запись в строку лита  
               Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, UBound(массив) + 1).Value = массив  
           End If  
       Next i  
   Next  
   Application.StatusBar = "": Application.ScreenUpdating = True  
End Sub  
 
Sub Очистка()  
   On Error Resume Next  
   ActiveSheet.UsedRange.Offset(1).ClearContents  
End Sub  
 
 
Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", Optional ByVal InitialPath As String = "c:\") As String  
   GetFolderPath = "": PS = Application.PathSeparator  
   With Application.FileDialog(msoFileDialogFolderPicker)  
       .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath  
       If .Show = -1 Then GetFolderPath = .SelectedItems(1): If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS  
   End With  
End Function

Спасибо за пример! Будем допиливать под свои нужды. ))