Automation Testing

Function NewFunc as integer
dim filenum as long
dim RecBuff as String
Filenum = freefile
NewFunc = false
OPEN InFile FOR Input As #filenum
while EOD(filenum) <> true
line input #filenum , Recbuff
if instr(ucase(RecBuff) ,(ucase(FindString)) then
NewFunc =true
exit while
end if
wend
close #filenum
end function
What will be the result if you run above sample code ?