在VB6中读取包含数千行和多列的文本文件

我试图读取包含数千行和几列的文本文件，但VB6限制我整个程序只有338行。有人能给我那个问题的解决办法吗？ 这是我已经尝试过的代码（dat是一个文本文件）：

---

它一直工作到第338行，但如果我向下滚动通过该行，它将超出范围。

“向下滚动？”你想说什么？发生了什么，某种未处理的异常？如果是这样，告诉我们错误号和描述可能会有所帮助。是的，我让它显示在标签上，然后它就可以向下滚动。但是，如果我在第338行中点击，我会得到运行时错误9，下标超出范围。你确定NoRs=338吗？我能看到你得到一个下标超出范围错误的唯一方法是，如果你试图解决一个myFile索引<或>数组的边界。是的，我肯定，那是在338。这就是为什么我想知道我的代码出了什么问题。还是VB6或其他东西的限制

Public TF As Integer, SF As String, NoRs As Integer

Public Type tFile
 Number       As String
 Name         As String
 NIM          As String
 Class        As String
 Room         As String
 Department   As String
 Faculty      As String
 Univ         As String
 Role         As String
End Type

Public myFile(1 To 2650) As tFile '2650 is Number of Rows in my Text File

Public Sub cFile()
 TF = FreeFile
 SF = App.Path & IIf(Right$(App.Path, 1) = "\", "", "\") & "String\myfile.dat"

 Open SF For Input As #TF
 NoRs = 0

 Do Until EOF(TF)
  NoRs = NoRs + 1

  With myFile(NoRs)
   Input #TF, _
   .Number, _
   .Name, _
   .NIM, _
   .Class, _
   .Room, _
   .Department, _
   .Faculty, _
   .Univ, _
   .Role
  End With

 Loop
 Close #TF
End Sub