CutString7

Function CutString7(CutFrom, StartFrom_ID_TillEnd, Optional Sepa = "|")
    ' Cuts a specified string from a set of string separated with a separator
    '    Returns text starting from the i of StartFrom_ID_TillEnd until the end of string
    ' Follows same approach as CutString3
    '
   
    If Sepa = "" Then Sepa = "|"
    NewCut = CutFrom & Sepa
    Part1 = CutFrom
    If StartFrom_ID_TillEnd > 0 Then
        ThisID = 0
        LastSepa = 1
        FindSepa = InStr(LastSepa, NewCut, Sepa)
        Do While FindSepa > 0
            ThisID = ThisID + 1
            If ThisID = StartFrom_ID_TillEnd Then
                Part1 = Mid(NewCut, FindSepa) ' , FindSepa - LastSepa)
                Exit Do
            Else
                LastSepa = FindSepa + Len(Sepa)
            End If
            FindSepa = InStr(LastSepa, NewCut, Sepa)
        Loop
    End If
    CutString7 = Part1
End Function