Sub Filter()
    On Error Resume Next
    Open ThisWorkbook.Path & "\plikwe.txt" For Input As #1
    Open ThisWorkbook.Path & "\wynik.txt" For Output As #2
    If Err <> 0 Then
        MsgBox "Błąd odczytu lub zapisu."
        Exit Sub
    End If
    TextToFind = "1,xxx,Dobry"
             
    Filtered = 0
    
    
    Do While Not EOF(1)
        Line Input #1, data
        If InStr(3, data, TextToFind) Then
            Filtered = Filtered + 1
        Print #2, data
       End If
        
             
       
          
          Loop
    Close
    MsgBox "Zapisano " & Filtered & " wierszy."
    
End Sub