random won't work the way you are doing it open for input

Line Input #intFileNumber, strFromFile

If InStr(strFromFile, strValueToFind) > 0 Then

try that

pete