' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX & Cobein                     //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Function Text_Between_Words(ByVal sTextToAnalyze As String, ByVal sStartWord As String, ByVal sEndWord As String) As String
    Dim iPosition1             As Integer
    Dim iPosition2             As Integer
    Dim iStart                 As Integer
 
    iPosition1 = InStr(sTextToAnalyze, sStartWord)
    If iPosition1 <> 0 Then
        iStart = iPosition1 + Len(sStartWord)
        iPosition2 = InStr(iStart, sTextToAnalyze, sEndWord)
    Else
        Exit Function
    End If
    If iPosition2 <> 0 Then
        Text_Between_Words = Mid$(sTextToAnalyze, iStart, iPosition2 - iStart)
    End If
End Function

El contexto es el ámbito de referencia de un texto. ¿Qué entiendo por ámbito de referencia?.

    Debug.Print Text_Between_Words(Text1.Text, "referencia", "entiendo")

    Debug.Print Text_Between_Words(Text1.Text, "referencia", "referencia")

No entendi el codigo y por eso hago esto

MsgBox Text_Between_Words(Text1.Text, "Codigo", "Esto")

 y por eso hago 

 
Dim pos1 as integer
 
 

 
option explicit
 
 

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Public Function Entre_Texto(ByRef StrIn As String, ByVal StrIni As String, ByVal StrFin As String, Optional ComparacionEstricta As Boolean) As String
Dim Pos(1) As Long
Dim IniPos As Long
Dim OptionalCompare As VbCompareMethod
 
    If Len(StrIn) > 0 Then
        If ComparacionEstricta Then
            OptionalCompare = vbBinaryCompare
        Else
            OptionalCompare = vbTextCompare
        End If
        Pos(0) = InStr(1, StrIn, StrIni, OptionalCompare)
        Pos(1) = InStr(1, StrIn, StrFin, OptionalCompare)
        If CBool(Pos(0)) And CBool(Pos(1)) And Pos(0) < Pos(1) Then
            IniPos = Pos(0) + Len(StrIni)
            Entre_Texto = Mid$(StrIn, IniPos, Pos(1) - IniPos)
        End If
    End If
End Function
 
 

 
Option Explicit
 
Private Function TextoEntreMedio(Texto As String, Palabra1 As String, Palabra2 As String)
    TextoEntreMedio = Left$(Mid$(Texto, InStr(Texto, Palabra1) + Len(Palabra1)), InStr(Mid$(Texto, InStr(Texto, Palabra1) + Len(Palabra1)), Palabra2) - 1)
End Function
 
Public Function Text_Between_Words(Text As String, String1 As String, String2 As String) As String
    Dim Pos1              As Integer
    Dim Pos2              As Integer
    Dim Start             As Integer
    Dim TotalLen          As Integer
    Pos1 = InStr(Text, String1)
    Pos2 = InStr(Text, String2)
    If Pos1 = 0 Or Pos2 = 0 Then GoTo NoExists
    Start = Pos1 + Len(String1)
    TotalLen = Pos2 - Start
    Text_Between_Words = Mid(Text, Start, TotalLen)
    Exit Function
NoExists:
    MsgBox "Error, check that the two words are in the text, if so," & vbCrLf _
    & " make sure you are entered correctly.", vbCritical
End Function
 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////
Public Function Entre_Texto(ByRef StrIn As String, ByVal StrIni As String, ByVal StrFin As String, Optional ComparacionEstricta As Boolean) As String
Dim Pos(1) As Long
Dim IniPos As Long
Dim OptionalCompare As VbCompareMethod
 
    If Len(StrIn) > 0 Then
        If ComparacionEstricta Then
            OptionalCompare = vbBinaryCompare
        Else
            OptionalCompare = vbTextCompare
        End If
        Pos(0) = InStr(1, StrIn, StrIni, OptionalCompare)
        Pos(1) = InStr(1, StrIn, StrFin, OptionalCompare)
        If CBool(Pos(0)) And CBool(Pos(1)) And Pos(0) < Pos(1) Then
            IniPos = Pos(0) + Len(StrIni)
            Entre_Texto = Mid$(StrIn, IniPos, Pos(1) - IniPos)
        End If
    End If
End Function
 
Private Sub Form_Load()
Const StrOri As String = "Miguel Angel Ortega Avila"
Const StrIni As String = "an"
Const StrFin As String = "vila"
 
    MsgBox Text_Between_Words(StrOri, StrIni, StrFin)
    MsgBox TextoEntreMedio(StrOri, StrIni, StrFin)
 
    MsgBox Entre_Texto(StrOri, StrIni, StrFin, True)
    MsgBox Entre_Texto(StrOri, StrIni, StrFin, False)
End Sub