Определение строки, в которой есть слово, и копирование ее - VB

Формулировка задачи:

Доброго времени суток! Прошу в очередной раз помощи. В TextBox имеется текст. В нем необходимо найти определенное слово и скопировать строчку до него, в которой содержится это слово в другой TextBox. Такое слово содержится в тексте только один раз. К примеру в TextBox1 имеется текст: строка еще одна строка куда ты прешь зачем тебе это нужно тосамоеслово и так далее все что угодно следующая строка здесь тоже что-то написано Нужно найти "тосамоеслово" и скопировать всю строку строку в TextBox2 В TextBox2 должно получится "зачем тебе это нужно" Слово то я нахожу

InStr(Text1.Text, "тосамоеслово")

Но как дальше быть? Заранее признателен....

Решение задачи: «Определение строки, в которой есть слово, и копирование ее»

textual
                            Листинг программы 
                        

                            i = InStr(Text1.Text, "тосамоеслово")
j = InStrRev(Text1.Text, vbLf, i)
MsgBox ">" & Mid(Text1.Text, j + 1, i - j - 1) & "<"
                        