Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю» - VB
Формулировка задачи:
Есть задание - нужно ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю». Есть примерный код схожего задания с иным условием, но и в нем выбивает ошибку. Заранее благодарен за помощь!
Решение задачи: «Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю»»
textual
Листинг программы
Sub lab()
Dim slovo As String
slovo = InputBox("Vvedite slovo", "", "абрададабра")
Cells(1, 1) = slovo
If Len(slovo) - 2 > 0 Then Mid$(slovo, Len(slovo) - 2) = "ю" Else MsgBox "Word too short"
Cells(2, 1) = slovo
End Sub