Contact: aviboots(AT)netvision.net.il
41,379 questions
53,922 answers
573 users
Module Module1 Sub Main() Dim s As String = "abcba" Dim rev As String = StrReverse(s) If (rev = s) Then Console.WriteLine("Palindrome") Else Console.WriteLine("Not Palindrome") End If End Sub End Module ' run: ' ' Palindrome