Проверить является ли строка палиндромом.

[rrrl]

Приветствую всех участников форума и прошу у вас помощи.

Задача состоит в следующем:
нужно проверить строку, является ли она палиндромом, используя строку заменитель и функцию Replace состоящюю из пробелов и знаков препинания.
Палиндром - это слова, числа, предложения читающиеся одинакова как слева напрово, так и справа на налево.

Ниже код программы, но в цикле видимо что-то не так. В итоге переменная NewText2 содержит только результат последней итерации цикла, то есть замены "," на "".
Подскажите, что не так?

Private Sub CommandButton1_Click()

Dim NewText1, NewText2, Change, Re As String
Dim i, n, k As Integer

NewText1 = LCase(TextBox1)           'преобразуем строку в строчные буквы
  
n = Len(NewText1)                    'количество символов в строке 

Change = " .,"                       'строка заменитель
k = Len(Change)                      'количество символов в строке-заменителе

For i = 1 To k
Re = Mid(Change, i, 1)               'выдергиваем из строки-заменителя символ
NewText2 = Replace(NewText1, re, "") 'заменяем символ-заменитель на ""
Next i
Worksheets("Лист1").Cells(2, 1) = NewText2

If NewText2 = StrReverse(NewText2) Then 'сравниваем строки 
   MsgBox "Палиндром"
Else
   MsgBox "Не палиндром"
End If

End Sub

[doober]

Попробуйте так

Private Sub CommandButton1_Click()

Dim NewText1, NewText2, Change, Re As String
Dim i, n, k As Integer

NewText1 = LCase(TextBox1)           'преобразуем строку в строчные буквы
  
NewText2 = Replace(NewText1, ".", "")
NewText2 = Replace(NewText2, ",", "")
NewText2 = Replace(NewText2, " ", "")


Worksheets("Лист1").Cells(2, 1) = NewText2

If NewText2 = StrReverse(NewText2) Then 'сравниваем строки 
   MsgBox "Палиндром"
Else
   MsgBox "Не палиндром"
End If

End Sub

[rrrl]

Спасибо за ответ.
Нужно было применять цикл. Но я уже разобрался