Miscellany

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
    MsgBox Pfadeuro(f)
    Open Pfadeuro(f) For Input As #1
    Do While Not EOF(1)
        Line Input #1, sLine
        If InStr(sLine, Suchwert, 1) > 0 Then
            MsgBox "Fahrzeug ist ein Euro 1 Fahrzeug"
        Else
            MsgBox "Fahrzeug is kein Euro 1 Fahrzeug"
        End If
Close #1
Loop
Next f

 
End Sub