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

        Dim S1 As String = "а роза упала на лапу азора"
        S1 = S1.Replace(" ", "")
        Dim Ch() As Char = S1.ToCharArray
        Array.Reverse(Ch)
        Dim S2 As String = New String(Ch)
        If S2 = S1 Then
            MsgBox("Строка является палиндромом", MsgBoxStyle.Information)
        End If

        Dim S As String = "На в лоб, болван!"
        Dim Tmp As String = Regex.Replace(S, "\W", "").ToUpper
        If Tmp = New String(Tmp.Reverse.ToArray) Then
            MsgBox("Палиндром")
        End If

Imports System.Text.RegularExpressions

        Str = TextBox1.Text ' : Str = LCase(Str)
        'StrTemp = Regex.Replace(Str, "\W", "").ToLower
        StrTemp = Str.Replace(" ", "").ToLower
        If StrTemp = New String(StrTemp.Reverse.ToArray) And TextBox1.Text <> "" Then
            MsgBox("Строка является палиндромом")
        Else
            If TextBox1.Text = "" Then
                MsgBox("Строка не введена")
            Else
                MsgBox("Строка не является палиндромом")
            End If
        End If

Regex.Replace(S, "\W", "")

Dim Tmp As String = S.Replace("!", "").Replace("?", "").ToUpper