count lines in txt file where ...

I have a txt file in c:\mydir\

i need to count lines only if in mid position 14, 4 is present the word "abcd"...

I need to loop all lines with the tipical

FileName = "C:\mydir\232.TXT"
FileNo = FreeFile
Open FileName For Input As FileNo

Do While Not EOF(FileNo)

Line Input #FileNo, CurrentLine
......


loop

or exist a other fast method?

Note;
- The lines in txt are approz 145.000
- Each line have a fixed 132 lenght