建议采用Open fName For Input As #1的方式来读取文件。
思路：
1.设置一个计数器，读入100行就停止。
2.把停止位置写入注册表，供下次读文件时使用。
代码如下（你自己改为函数吧）：

Option Explicit

Dim Lx1 As Integer

Private Sub Command1_Click()
On Error GoTo 100
Dim Z As String, ST As String, k As Integer
GetSetting "超级记事本", "分步读取", "位置", Lx1
If Lx1 = 0 Then Lx1 = 1
Open filepath For Input As #1
Seek #1, Lx1 '设置读文件的起始位置
Do Until EOF(1) Or k = 100
  Line Input #1, Z
  ST = ST & Z & vbCrLf
  k = k + 1
Loop
Lx1 = Seek(1) + 1 '获取下一次起始读位置
If Lx1 >= LOF(1) - 2 Then Lx1 = 1
SaveSetting "超级记事本", "分步读取", "位置", Lx1 '将 Lx1 的新值写入注册表
Text1.Text = Text1.Text & ST
100
Close #1
End Sub

更正一下：
Dim Lx1 As Long