'puncuation and case and space sensitive
Function ispal(ByVal str As String) As Boolean
   Dim chars As Char() = str.ToCharArray()
   Array.Reverse(chars)
   If TextBox1.Text = chars Then
      Return True
   Else
      Return False
   End If
End Function