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

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