Open "ActuelleDatei" For Input As #1
        Do While Not Eof(1)
               n = n +1
               Input #1,a
               If n = 2 Then
                    f = Instr(1,a,"Hallo")
                    if f <>0 Then List1.Additem "ActuelleDatei"
                    n = 0
              End If
        Loop
    Close #1