How do you code a palindrome in VB?
Private Sub Command1_Click()
string1 = Text1.Text
string2 = StrReverse(string1)
result = StrComp(string1, string2, vbTextCompare)
If result = 0 Then
MsgBox string2 & " is a palindrome..."
Else
MsgBox string1 & " is not a palindrome..."
End If
End Sub