Написать программу для проверки все ли буквы данного слова стоящие на четных местах одинаковые (золото, долото, полотно, толокно). Visual Basic

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