VB 在RichTextBox 中查寻目标字符串，并把该字符串所在的行显示到顶行

VB 在RichTextBox 中查找目标字符串，并把该字符串所在的行显示到顶行
RichTextBox 中的内容行数大于其能显示的行数，我要做一个查询功能，输入要查询的字符串，然后定位到目标字符串所在的行，并且把该行显示在 RichTextBox 的顶行（能看见的显示内容的第一行，而不是能看见内容的最后一行，也不是所有内容的第一行），谢谢各位
------解决方案--------------------
先找到指定的字符串的位置。假定位置为A，InStr（），
然后从A位置向前找vbcrlf，假定位置为B，InStrRev（）
然后从A位置往后找vbcrlf，假定位置为C。

修改显示，第一行增加显示为位置B至位置C的内容。Mid（）
------解决方案--------------------
With RichTextBox1
      .UpTo vbCrLf, True, False

With RichTextBox1
      .UpTo vbCrLf, False, False

这样的方法可以移动到一行（实际的行，不是显示的行，以回车定义）的行首或者行尾。
一定要用Upto方法，要先设置插入点在需要的位置，再移动。

按你的要求，要先找到需要查找的字符串。然后设置selstart为字符串位置。然后开始移动，移动到该行第一个字符并记录这个位置。然后移动到该行尾，并记录位置。然后提取两个位置之间的字符串。