Private Sub Command5_Click()
Dim F As Long
Dim Fn As String
Dim MyText As String
Dim a(1 To 3) As String
Dim i As Integer

Text1.Text = vbNullString
F = FreeFile
Fn = "E:\test.txt"

a(1) = "*id=""3""*"
a(2) = "*id=""5""*"
a(3) = "*id=""7""*"

Open Fn For Input As #F
Do Until EOF(F)


n: Line Input #F, MyText
   For i = 1 To 3
     If Not MyText Like a(i) Then
    GoTo m:
    Else
    GoTo n:
    End If

m: Next i
Text1.Text = Text1.Text & MyText &  vbNewLine
Debug.Print Text1.Text

Loop
Close #F

Open Fn For Output As #F
Print #F, Text1.Text
Close #F

End Sub