Finde del af en linie en txt fil og gemme hele linie i en var

Tilpas nedenstående:

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim InputName
Dim InputLine
InputLine = "STI OG FILNAVN PÅ TEXTFFIL"
With fso.GetFile(InputName).OpenAsTextStream
    Do While Not .AtEndOfStream
        InputLine = .ReadLine
        'Undersøg om InputLine indeholder det ønskede
        if InStr(InputLine, "SØGESTRENG") <> 0 then
            MsgBox InputLine 'ÆNDR HER
        end if
    Loop
    .Close
End With

Set fso = Nothing

Ups! :-)

InputLine = "STI OG FILNAVN PÅ TEXTFFIL"
skal ændres til:
InputName = "STI OG FILNAVN PÅ TEXTFIL"