CutString9

Function CutString9(CutFrom, StartingFrom_ListofStrings, Until_ListofStrings, Optional Sepa = "|", Optional StartSearchingFrom = 1)
    ' Cuts from CutFrom starting from any of items found from StartingFrom_ListofStrings (separated by |), or start of string
    '    Until any of Until_ListofStrings is found (separated by |), or end of string
    ' if none found, will return CutFrom
    '
    ' Needs vbinstr()
    Rett = CutFrom
    For Each Lii In Split(StartingFrom_ListofStrings, Sepa)
        St01 = VBInstr(Lii, Rett, StartSearchingFrom)
        If St01 > 0 Then
            Rett = Mid(Rett, St01 + Len(Lii))
            Exit For
        End If
    Next
    For Each Lii In Split(Until_ListofStrings, Sepa)
        St01 = VBInstr(Lii, Rett)
        If St01 > 0 Then
            Rett = Left(Rett, St01 - Len(Lii))
            Exit For
        End If
    Next
    CutString9 = Rett
End Function