Написать программу, которая определяет, является ли введенное слово палиндромом. выдать сообщeние в msgbox. вывести проверяемое слово в двух вариантах. visual basic.

Sub Z1()
Dim x, y As String
x = InputBox("Введите слово: ")
For i = Len(x) To 1 Step -1
   y = y + Mid(x, i, 1)
Next i
MsgBox ("Перевернутое слово: " + y)
If x = y Then
    MsgBox ("Это палиндром")
    Else: MsgBox ("Это не палиндром")
    End If
End Sub