Guardar renglon de un TextBox multiline si se encuentra determinado texto

[german_martin]

Tengo una variable con el texto:

"Foros del web me ha sacado
de mas de un apuro cuando
no tenia harry potter ni idea
de como hacer tal cosa y tal otra"

Como podria hacer para que cuando presione el Command1 se busque la palabra "harry potter" (la cual esta en el texto) pero que me devuelva la linea completa, o sea: "no tenia harry potter ni idea"

[David]

Podría ser algo como esto:

Código vb:

Dim Position As Integer
Dim Texto As String
Texto = Text1.Text & vbCrLf
Position = InStr(Texto, "harry potter")
Texto = Left(Texto, InStr(Position, Texto, vbCrLf) - 1)
Texto = Right(Texto, Len(Texto) - InStrRev(Texto, vbCrLf) - 1)
MsgBox Texto
 

Debes investigar un poco sobre las funciones para manejar texto para estos casos, Left, Right, Mid, InStr, InStrRev, etc.