文本有很多行，已知某行里面含有某特定字符，怎样提取出某行

如：
TEXT1里面有多行文字：

今年共有20名北京学生被录为免费师范生，
其中陕西师范大学在京招生17人，
东北师大招生3人。
陕西师范大学招办负责人惠刚介绍，
在京招收的17个免费师范生中，
男生5人，女生12人，
与往年情况相同。
但今年城镇考生达到11人，
农村考生仅为6人，
这是今年的一个显著变化。

已经知道要查找的字符串是：负责人

那么怎么在TEXT2里面显示：

陕西师范大学招办负责人惠刚介绍，

有两种不同的写法.不过其实是一样的.呵呵

方法一:

Private Sub Command1_Click()

dim strArr() as string
dim i as integer
strArr=split(text1.text,vbcrlf)
text2.text=""
for i=lbound(strarr) to ubound(strarr)
    if instr(strarr(i),"负责人")>0 then
       text2.text=text2.text & strarr(i) & vbcrlf
    end if
next i

End Sub

方法二:

Private Sub Command1_Click()
    Dim strLine() As String
    Dim i As Integer
    Dim strFind As String
    strLine = Split(Text1.Text, vbCrLf)
    For i = 0 To UBound(strLine)
         '只寻找符合条件的第一行
        If InStr(1, strLine(i), "负责人") > 0 Then
            Text2.Text = strLine(i)
            Exit For
        End If
'         '寻找符合条件的所有行
'        If InStr(1, strLine(i), "负责人") > 0 Then
'            strFind = strFind & strLine(i) & vbCrLf
'        End If
     Next
'    '寻找符合条件的所有行
'    Text2.Text = Left(strFind, Len(strFind) - 2) '
End Sub