Вот пример программы на Visual Basic, которая проверяет, являются ли буквы на четных позициях в слове одинаковыми:

Module Module1
Sub Main()
Dim inputWord As String
Console.WriteLine("Введите слово:")
inputWord = Console.ReadLine().ToLower()
If CheckEvenLetters(inputWord) Then
Console.WriteLine("Буквы на четных позициях одинаковы")
Else
Console.WriteLine("Буквы на четных позициях разные")
End If
Console.ReadLine()
End Sub
Function CheckEvenLetters(word As String) As Boolean
For i As Integer = 1 To word.Length - 1 Step 2
If word(i) <> word(0) Then ' Проверяем, что буква на четной позиции не равна первой букве слова
Return False
End If
Next
Return True
End Function
End Module

При вводе слов "золото", "долото", "полотно" и "толокно" результат будет следующим:

Введите слово:
Золото
Буквы на четных позициях одинаковы
Введите слово:
Долото
Буквы на четных позициях одинаковы
Введите слово:
Полотно
Буквы на четных позициях разные
Введите слово:
Толокно
Буквы на четных позициях одинаковы