Imports System

class palindrom

​

    public sub setData(byVal number as Integer)                 ''Create a Public sub to get value

        dim result as integer

        result = chkPalindrome(number)                          ''Calling private chkPalindrome() to check whether no is Palindrome or not

        if (result = 1 ) then 

            Console.WriteLine("The Number is Palindrome ")      ''Display the Final value which return 1 and 0 

        else 

            Console.WriteLine("The Number is Not  Palindrome ")

​

        end if  

end sub

    private function chkPalindrome(byVal number as Integer)         ''private chkPalindrome() which check and return 1 if number is Palindrome / 0 number is not Palindrome

        dim tempNum, first, second as Integer

        tempNum = number

        first = 0

        while number >0

            second = number mod 10

            first = first * 10 + second

            number = number \ 10

        end while

        if (tempNum = first )then 

            return 1

        else 

            return 0

        end if

        return 0

    end function

end class       

​

Public Module Module1

​

​

    Public Sub Main()

        dim Obj as new palindrom()      '' Create an Obj for  class palindrom */

        dim number as Integer           ''Get a value from User

        number = console.ReadLine()     

        Obj.setData(number)             ''send a value to setData()

    End Sub

End Module