Perfect Number Generation

Module PerNum_Generation
    Sub Main()
        Dim min, max, p, r, sum As Integer
        min = 1
        max = 1000
        Console.WriteLine("Perfect Numbers are:- ")
        While min <= max
            p = 1
            sum = 0

            While p < min
                r = min Mod p
                If r = 0 Then
                    sum += p
                End If
                p += 1
            End While
            If sum = min Then
                Console.WriteLine(min.ToString)
            End If
            min += 1
        End While
        Console.ReadLine()
    End Sub
End Module