How To Reverse The Given Number Using Console Application

Reverse Your Given Number In Console Application...

Sub Main()
        Dim num, i As Integer
       Console.WriteLine("Enter the Number for Reverse:=>")
        num = Console.ReadLine()
        While (num > 0)
            i = (num Mod 10)
           Console.WriteLine(i)
            num /= 10
        End While
       Console.ReadLine()
End Sub