Function Move_SubString(Ячейка As Range, Номер_подстроки As Long, Новое_место As Long, Optional Разделитель As String = " ")
    Dim sStr, li As Long
    Dim sNewWord As String, sTmpStr As String
    sStr = Split(Ячейка, Разделитель)
    For li = LBound(sStr) To UBound(sStr)
        If li = Номер_подстроки -  1  Then sTmpStr = sStr(li): sStr(li) = ""
    Next li

    For li = LBound(sStr) To UBound(sStr)
        If li = Новое_место -  1  Then
            sNewWord = sNewWord & Разделитель & sTmpStr & Разделитель & sStr(li)
        Else
            sNewWord = sNewWord & Разделитель & sStr(li)
        End If
    Next li
    Move_SubString = Application.Trim(sNewWord)
End Function