Поиск совершенного числа

Private Sub Command1_Click()
Dim n%, i%, k%
 n = Val(InputBox("Введите число для проверки"))
  For i = 1 To n \ 2
   'If n Mod i = 0 Then k = k + i
   If Int(n / i) = n / i Then k = k + i
  Next
MsgBox "Число " & n & IIf(k <> n, " - несовершенное", " - совершенное")
End Sub

Private Sub p10000()
Cells.Clear
Dim n%, i%, k%, p%
  For i = 4 To 10000 Step 2
  k = 0
  For j = 1 To i \ 2
   If i Mod j = 0 Then k = k + j
  Next j
  If k = i Then p = p + 1: Cells(p, 1) = i
   Next i
End Sub

Private Sub Command1_Click()
for c= 1 to 10000
h=0: d=0
For i = 1 To c
h = c / i
If h = Int(h) And h < c Then d = d + h
Next i
If d = c Then p=p+1: Cells (p,1)=c
next c
End Sub

Function Nombre(n As Integer) As Boolean
    Dim somme As Integer
    Dim i As Integer
    i = 1
    Do Until i = n
        If n Mod i = 0 Then
            somme = somme + i
        End If
            i = i + 1
        Loop
    If n = somme Then
    NombreParfait = True
    End If
End Function
 
Sub testNombreParfait()
    MsgBox Nombre(InputBox("Введите число для проверки на совершенное." _
    , "Введите число"))
End Sub

Option Compare Database
Private Sub Кнопка1_Click()
Dim n%, i%, k%
 n = Val(InputBox("Введите число для проверки"))
  For i = 1 To n \ 2
   'If n Mod i = 0 Then k = k + i
   If Int(n / i) = n / i Then k = k + i
  Next
MsgBox "Число " & n & IIf(k <> n, " - несовершенное", " - совершенное")
End Sub