file.vb
PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim str1 AsString
str1 = TextBox1.Text
If str1 = StrReverse(str1) Then
MsgBox("String is palindrome")
Else
MsgBox("String is not palindrome")
EndIf
EndSub
EndClass