Open textFile For Input As #1
i1=1
Do
Line Input #1, dataline
dataline = lcase$(dataline)
i1 = InStr(1, dataline, "word")
If i1 = 0 Then i1 = 1
Loop Until Mid(dataline, i1, 4) = "word" Or EOF(1)
i.e.: Open file for input (read), and search each line for the word
Thanks a lot for your help guys,
A