在vb中计算文本文件中的行的内存密集程度较低

Question

我的文件中可能包含多达40,000,000行数据（记录）。

我需要一种内存有效的方法来计算文件中有多少行。

我试过了：

Dim this As Integer
this = File.ReadAllLines(txtInPath.Text).Length
MsgBox(this)

其中txtInPath是我表单中的文本框。

此代码导致内存不足异常。

谢谢