Function u_21(a As Range)
    b = Len(a)
    h_1 = Len(Replace(a, " сертификат", ""))
    i_1 = (b - h_1) / 11
    h_2 = Len(Replace(a, " паспорт-сертификат", ""))
    i_2 = (b - h_2) / 19
    h_3 = Len(Replace(a, " документ", ""))
    i_3 = (b - h_3) / 9
    i = i_1 + i_2 + i_3
    g = a.Value
    u_21 = ""
    l = ""
    For c = 1 To i
        If c > 1 Then l = " "
        d = InStr(g & ";", ";")
        e_1 = InStr(g, " сертификат")
        If e_1 = 0 Then e_1 = b
        e_2 = InStr(g, " паспорт-сертификат")
        If e_2 = 0 Then e_2 = b
        e_3 = InStr(g, " документ")
        If e_3 = 0 Then e_3 = b
        e = Application.Min(e_1, e_2, e_3)
        f = Mid(g, e + 1, d - e)
        g = Mid(g, d + 1, b)
        u_21 = u_21 & l & f
    Next
End Function