cheee, el hombre rana se habia sacado una igualita a esa.
Creo que era textbetweenwords
'by Mr.Frog™
Public Function TextBetweenWords(ByRef strText$, ByRef strWord1$, ByRef strWord2$) As String
Dim lngPos1&, lngPos2&, lngStart&
lngPos1 = InStr(strText, strWord1)
If lngPos1 Then
lngStart = lngPos1 + LenB(strWord1) \ 2
lngPos2 = InStr(lngStart, strText, strWord2)
If iPosition2 Then
TextBetweenWords = Mid$(strText, lngStart, lngPos2 - lngStart)
End If
End If