Write VB program to check inputed string is palindrome or not.

Write VB program to check inputed string is palindrome or not.

 

Private Sub Command1_Click()

Dim S As String

Dim T As String

S = Trim(UCase(InputBox("Enter a String")))

T = S

S = StrReverse(S)

If S = T Then

    Print "String is Palindrome"

Else

    Print "String is Not Palindrome"

End If

End Sub