Public Function StrBetween(Cadena As String, SubCadena1 As String, Subcadena2 As String) As String
 
    Dim Pos1 As Integer, Pos2 As Integer
 
    Pos1 = InStr(UCase(Cadena), UCase(SubCadena1)) + 1
    Pos2 = InStr(UCase(Cadena), UCase(Subcadena2))
 
    If Pos1 <> 0 And Pos2 <> 0 Then
 
        StrBetween = Mid$(Cadena, Pos1, Pos2 - Pos1)
 
    End If
 
End Function
 
Private Sub Form_Load()
 
    Dim ASd  As String
    Dim Asd2 As String
 
    ASd = "aitheoiethi[BLABLABLAkjhuihui]taihoithaoihtoea"
    Asd2 = StrBetween(ASd, "[", "]")
 
    MsgBox Asd2
 
End Sub

 
'------------------------------------------------------------------------
' *Function : Text_Between_Words
' *Author   : *PsYkE1*
' *Mail     : vbpsyke1@mixmail.com
' *Date     : 10/4/10
' *Purpose  : It returns the text wich is between two words
' *Recommended Websites :
'       http://foro.rthacker.net/
'       http://InfrAngeluX.Sytes.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 CBool(iPosition1) Then
        iStart = iPosition1 + Len(sStartWord)
        iPosition2 = InStr(iStart, sTextToAnalyze, sEndWord)
        If CBool(iPosition2) Then
            Text_Between_Words = Mid$(sTextToAnalyze, iStart, iPosition2 - iStart)
        End If
    End If
End Function
 
 

 
Debug.Print Text_Between_Words("El contexto es el ámbito de referencia de un texto. ¿Qué entiendo por ámbito de referencia?.", "referencia", "referencia")
 
 

 
Private Sub Form_Load()
 MsgBox TextoEntreMedio("aitheoiethi[BLABLABLA]taihoithaoihtoea", "(", "]")
End Sub