Определить, является ли введенная строка полиндромом - VBA

Формулировка задачи:

Определить, является ли введенная строка полиндромом (слово, читающееся одинаково слева направо и справа налево).

Решение задачи: «Определить, является ли введенная строка полиндромом»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub DariaVB()
    Dim pali$    ' объявлена текстовая переменная
    pali = LCase(InputBox("Введите текст: ", , "Анна"))    ' переменной с клавиатуры вводится значение
    MsgBox (IIf(pali = StrReverse(pali), "Палиндром!", "Не палиндром!"))
    ' StrReverse(string) - возвращает "отражение" заданной строки;
    ' функция IIf проверяет выполнимость условия, в данном случае "pali = StrReverse(pali)" _
      и выводит одно из двух значений (в кач-ве значений у нас "Палиндром!" и "Не палиндром!");
    ' Наконец, MsgBox - вывод сообщения
End Sub