answersLogoWhite

0

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

User Avatar

Wiki User

13y ago

What else can I help you with?