Option Explicit
 
'6
'28
'496
'8128
'33550336
'8589869056
'137438691328
'2305843008139952128
 
Public Function Misery_MOD(ByVal dividendo As Double, ByVal divisor As Double) As Double
'x / y = z
'y * z + R = x
 
'10 / 3 = 3,333
'10 / 3 = 3
Misery_MOD = dividendo - (divisor * Fix(dividendo / divisor))
End Function
 
Public Function IsPerfect(ByRef numero As Double) As Boolean
Dim loopc As Double
Dim calc As Double
 
Dim LastNum As Byte
 
Dim Max As Variant
 
Max = Fix(CDbl(numero) / CDbl(2))
 
'By 79137913
LastNum = numero Mod 10
 
If LastNum = 6 Or LastNum = 8 Then
    For loopc = Max To 1 Step -1
        'If numero Mod loopc = 0 Then
        If Misery_MOD(numero, loopc) = 0 Then
            calc = calc + loopc
 
            If calc > numero Then
                IsPerfect = False
                Exit Function
            End If
        End If
    Next loopc
End If
 
IsPerfect = (calc = numero)
End Function
 
Private Sub Form_Load()
'MsgBox 33550336 Mod 10
MsgBox IsPerfect(33550336)
End
End Sub