Visual Basic - Busqueda de datos trabada

Hola que tal.
Tengo el siguiente problema.
Cuando ejecuto el sub me extrae los datos. todo va bien hasta que hago que sigua buscando mas datos se queda trabado y ya no extrae mas datos.

No se talvez no hice bien el codigo o que es lo que me esta fallado.

Public Sub Extract_Hoja(ByVal T As TextBox, Rval As String)

Do Until InStr(T.SelText, "HOJA ")
T.SelLength = T.SelLength + 1
Loop
T.SetFocus
T.SelText = ""

Do Until InStr(T.SelText, Chr(13) & Chr(10))
T.SelLength = T.SelLength + 1
Loop

T.SelLength = T.SelLength - 2
T.SetFocus
Rval = T.SelText
' Debug.Print Rval
T.SelText = ""
Exit Sub
End Sub

Ayudaría que explicaras que estas intentando hacer.

Quizás T.SelLength = T.SelLength - 2 tenga algo que ver.

El T.SelLength = T.SelLength - 2 lo utilizo para elminar unos caracteres extras que no me sirven.

Per gracias por tu comentario.

Buuuffffffffff. Espera que me voy a tomar unas vacaciones después de leer tu extensa explicación. Yo creo que así resolverás todas las dudas de tu vida.