Palindrome Number Generation

Module Pal_Gen
    Sub Main()
        Dim min, max, r, sum, t As Integer
        Console.WriteLine("Enter a Minimum Number:  ")
        min = CInt(Console.ReadLine())
        Console.WriteLine("Enter a Maximum Number:  ")
        max = CInt(Console.ReadLine())
        Console.WriteLine("Palindrome Numbers are :-")
        While min <= max
            sum = 0
            t = min
            While t <> 0
                r = t Mod 10
                sum = sum * 10 + r
                t = t \ 10
            End While
            If sum = min Then
                Console.WriteLine(min.ToString() + "is a Palindrome Number")
            End If

            min += 1
        End While
    End Sub
End Module