'Функция переписана, чтобы чётко определять разделения с начала новой строки строки
Function GetBetweenREXP(s As String, strt_ As String, end_ As String) As Variant
'Если end_ ="", считаем от strt_ до следующего strt
    Dim subStr() As String
    Dim oReg As Object
    Dim colMatches As Object
    Dim lenMatch As Long
    Dim sLen&, eLen&
    Set oReg = CreateObject("VBScript.RegExp")
    oReg.Global = True
    oReg.Pattern = "\r\n" & strt_ & "([\s|\S]+?\r\n" & end_ & ")"
    If end_ = "" Then
        oReg.Pattern = "\r\n" & strt_ & "[\s\S]+(?!\r\n" & strt_ & ")"
    End If
    Set colMatches = oReg.Execute(s)
    If colMatches.Count = 0 Then Exit Function
    ReDim subStr(1 To colMatches.Count) 'без первого и последнего
    sLen = Len(strt_)
    eLen = Len(end_)
    For i = 0 To colMatches.Count - 1
        
        lenMatch = Len(colMatches.Item(i).Value)
        
        subStr(i + 1) = Mid(Trim(colMatches.Item(i).Value), sLen + 2, lenMatch - sLen - 2 - eLen + 2 * (eLen > 0))
    Next i
    GetBetween = subStr
End Function

oReg.Pattern = "\r\n" & strt_ & "([\s|\S]+?\r\n" & end_ & ")"

oReg.Pattern = "\r\n" & strt_ & "[\s\S]+(?!\r\n" & strt_ & ")"