Adesso sei stato chiaro ...

codice:
        Dim s As String
        Dim l1 As Long
        Dim l2 As Long

        s = "[INIZIO]STRINGA[FINE]"

        l1 = InStr(s, "[INIZIO]")
        l2 = InStr(s, "[FINE]")
        MsgBox(Mid(s, l1 + 8, l2 - l1 - 8))
... adatta il codice alle tue esigenze ...