Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю» - VB

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

Есть задание - нужно ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю». Есть примерный код схожего задания с иным условием, но и в нем выбивает ошибку. Заранее благодарен за помощь!
Sub lab()
Dim slovo$, i&, j&, L%
L = Len(slovo)
slovo = Val(InputBox("Vvedite slovo"))
Cells(i, 1) = slovo
For i = 1 To L
If i Mod 2 = 0 Then
Cells(i + 1, 2) = slovo(i)
i = i + 1
Next
End Sub

Код к задаче: «Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю» - VB»

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

13   голосов, оценка 3.615 из 5


СОХРАНИТЬ ССЫЛКУ