VBA. Составить максимальное количество слов из заданного слова.

[Zephyr]

Задание. Используя операции работы со строками составить максимальное количество слов из слова "Канатоходец".
Для решения задания надо брать символы из этого слова, менять их местами или удалять, чтобы получить другие слова.

[Администратор]

Вот так можно получить слово "Канат":

Sub макрос()

    Dim text As String
   
    ' Записываем текст в переменную.
    text = "Канатоходец"
   
    ' Вывод результата в View - Immediate Window.
    Debug.Print Left(text, 5)

End Sub