vba读文本如果文本文件太大会提示错误！

Sub 文本文件太大会提示错误()

Dim TT, p

Open "I:\xxxxx\yyyzz.txt" For Input As #1       '读取txt文件

Do While Not EOF(1) ' 循环读至文件最后一行

Line Input #1, TT ' 读入一行数据并将其赋予某变量

p = Split(TT, "gggggg") '

a = p(0)

b = p(1)

msgbox a & b

Loop

Close #1

End Sub