Palindrome Part 3

[tappling]

Will this code also pick up punuation in a palindrome sentence? Could If go in place of the While?

Dim intPosition As Integer
Dim strText As String
Dim strResult As String

strText = txtInput.Text

While intPosition =< Len(strText)
intPosition = intPosition + 1
strResult = Mid(strText, intPosition, 1) & strResult
Wend

If strResult = strText Then
MsgBox "The string is a palindrome!"
End If