VB 中怎么实现查找到字符串后，然后显示该字符串所在行的整行内容

VB 中如何实现查找到字符串后，然后显示该字符串所在行的整行内容？
我要在程序中实现：先查到所需要的字符串，然后显示该字符串所在行的整行内容。
请各位指导下，谢谢了

例如：
........
LIBRARY OPTIONS
  "custom_lib";

UNCONNECTED PIN NC;

CAPACITOR
  C1B1 10u 20 20 f;
  C1B2 10u 20 20 f;
  C1B3 10u 20 20 f;
  C1B4 10u 20 20 f;
  C1B6 10u 20 20 f;

当我查找C1B6时，在一个text.box 中能显示整行内容： C1B6 10u 20 20 f;

定位到这个字符串很容易，就是不知道该怎么显示整行内容？

程序：
....
address= InStr(1, Form1.context1.Text, "C1B6", 0)
下面怎么办？或者有什么另外的办法？？



[解决办法]

VB code

Dim Arr() as StringArr=Split(Form1.context1.Text,vbcrlf)for i =0 to ubound(Arr)  address= InStr(1, Arr(i), "C1B6", 0)  if address<>0 then    msgbox Arr(i)    Exit for  end if next
[解决办法]
用InStrRev找到上一个换行符，用instr找到下一个换行符，显示两个换行符之间的内容。