Guardar renglon de un TextBox multiline si se encuentra determinado texto

[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.