5 lines
197 B
Text
5 lines
197 B
Text
Public Function isPalindrome(aString as string) as Boolean
|
|
dim tempstring as string
|
|
tempstring = Lcase(Replace(aString, " ", ""))
|
|
isPalindrome = (tempstring = Reverse(tempstring))
|
|
End Function
|