电子书阅读器章节分析问题

电子书章节提取问题
。。。 。。。
Open infile For Input As #1 '打开文件 
Do While Not EOF(1) '循环至文件尾,读完整个文件
下面我想用Function函数。判断上面文件中是否有“第*章*”，如果是则存入list列表里，后面使用时在做提取（因为题目要求不允许将多于一章的文本载入内存）
1、做到Do While Not EOF(1)时候，我不知道后面该怎么做了。。
2、提取文本的时候怎么根据章节提取？
求大神解决一下，可以不要代码，给个思路就可以 --------------------编程问答-------------------- 我想了一个，但是想到一半不知道如何操作了
Function isChapter(ByVal s As String) As Boolean
If txt(i) Like "第*章*" Then
isChapter = True
Else
isChapter = False
End If
End Function
————————————————————————————————————————————————————————————————————
Private Sub Command1_Click()
Dim i As Integer
  m = (Form1.Height) \ (Label1(0).Height) + 1
For i = 1 To m
    Load Label1(i)
   Label1(i).Visible = True
   Label1(i).Top = Label1(0).Top + i * Label1(0).Height
  Next i
CommonDialog1.Filter = "txt文件 (*.txt)|*.txt|所有文件|*.*"
CommonDialog1.ShowOpen
infile = CommonDialog1.FileName
lines = 0
Form1.Caption = Form1.Caption & "-" & infile
Open infile For Input As #1 '变量中存放的是文本的名字，打开文件
      Do While Not EOF(1) '循环至文件尾,读完整个文件
        ReDim Preserve txt(lines + 1) '开辟空间存放第一行内容
        lines = lines + 1
        Line Input #1, txt(lines)  '读入一行并存放内容
        If isChapter = False Then
then后面怎么写？就是要继续执行循环，没有操作。
不知道这个想法对不对

补充：.NET技术 ,  VB.NET