Восстанови письмо, вставляя пропущенные слова. beautiful, write, in the country, behind, mountains, swim, river Dear Alex, Thank you for your letter. I am Vova

Sub Z1()
Dim x As String
f = True
x = InputBox("Введите слово: ")
For i = 2 To Len(x) - 2 Step 2
    If Mid(x, i, 1) <> Mid(x, i + 2, 1) Then f = False
Next i
If f = True Then
    MsgBox ("Условие выполняется")
    Else: MsgBox ("Условие не выполняется")
    End If
End Sub