VB6.0RichTextBox怎么获取某行整行的内容

VB6.0RichTextBox如何获取某行整行的内容
VB6.中使用RichTextBox读取某一Txt文件的内容，得到包含“ABC”的所有行：
  Dim LineIndex As Long '行号
  Dim strNo As Long '位置  
  rtb.Text = ts.ReadAll() 'rtb为RichTextBox实例
  For strNo = 0 To Len(rtb.Text)
  strNo = rtb.Find("ABC", nub, Len(rtb.Text))
  strNo = rtb.GetLineFromChar(nub)
  If strNo > 0 Then
  LineIndex = strNo
  '**********
  '已得到行号，如何得到该行的内容？？？
  '**********
  Else
  Exit For
  End If
  Next
/////////////////////////////////////
初衷是想得到Text文件中包含“ABC”的所有行，开始是一行一行读取并对比“ABC”，但Text文件较大，该方法效率不高，故欲寻求更好的方案，所以尝试使用优化度较高的RichTextBox控件，或者大家有更好的方案请不吝赐教~~谢谢!!

------解决方案--------------------
思路:
将数据读入数组 sData(),按照回车键分割.
读行号8的数据,msgbox sData(7)
------解决方案--------------------

探讨

这个方法不可取，假设面对的是超大的text文件，这样会占用很大的内存，速度很慢，还有溢出的可能.....

------解决方案--------------------
超大的文本，也不会占用多少内存的。不信你可以计算一下。