Problemas com o final do arquivo texto

OláTenho o seguinte código para leitura de um arquivo texto:iFileTxt = FreeFile Open EndArq & NomeArq For Input As iFileTxt iTotalReg = 0 Do While EOF(iFileTxt) Line Input #iFileTxt, TextLine If iTotalReg = 156 Then iTotalReg = iTotalReg End If iTotalReg = iTotalReg + 1 Loop Close #iFileTxtO arquivo tem 2200 linhas mas o código acima está lendo somente 158 linhas e diz que chegou ao final já, não estou conseguindo achar o erro no código, já olhei o arquivo e aparentemente está tudo certo.É um arquivo grande, tem 1717 colunas, são 121 campos.