Замена частей слова - VBA

Формулировка задачи:

Здравствуйте знатоки VBA! На до мной нависла такая проблема, нужно в строке поменять местами первую часть слова со второй! Сам не могу сделать, преподаватель сказал нужен перевод строки в число! Помогиииииииитеееееееее пожааааалууууйстаааааа)

Решение задачи: «Замена частей слова»

textual
                            Листинг программы 
                        

                            Function Поменять(Text As String) As String
    Dim L%, M%
    L = Len(Text)
    M = Round(L / 2)
    Поменять = Right(Text, M) & Left(Text, L - M)
End Function
                        