Sub Benziner()
Pfadalle = ThisWorkbook.Path
Dim Pfadeuro(4)
Pfadeuro(1) = Pfadalle & "\Benzin_Euro1.txt"
Pfadeuro(2) = Pfadalle & "\Benzin_Euro2.txt"
Pfadeuro(3) = Pfadalle & "\Benzin_Euro3.txt"
Pfadeuro(0) = Pfadalle & "\Benzin_Euro4.txt"

    
For f = 1 To 4
    Open Pfadeuro(f) For Input As #1
    Do While Not EOF(1)
        Line Input #1, sLine
        If InStr(sLine, Suchwert, 1) > 0 Then
            MsgBox sLine
            MsgBox Suchwert
        Else
            
        End If
Loop
Close #1

Next f
End Sub