На больших объемах текстовых файлов лучше вообще FSO применять - он частями подгружает. Input же использует Блокнот, на котором есть ограничение на размер открываемого файла txt. Для 32-бит это 1Гб, если не изменяет память. И попытка работать с файлом большего размера с очень большой вероятностью не увенчается успехом.

Dim F As Integer, i As Long, k As String

F = FreeFile

i = 0

Open "V:\08-aug-404.txt" For Input As #F

Input #F, k

Do Until EOF(F)

  i = i + 1

  Input #F, k

Loop

Close #F

MsgBox i

80 тыщ строк посчитал без проблем