Find Palindrome Numbers in between 1 to 100

Module Pal_inBetween
    Sub Main()
        Dim min, max, r, sum, t As Integer
        min = 1
        max = 100

        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