Определить, является ли введённое натуральное число совершенным - VB

Private Sub Command1_Click()
Dim Num As Long
Dim PerfList(0 to 4) As long
     for i%=0 to 4
         PerfList(i%)=array(6,28,496,8128,33550336)(i%)
     next i%
     Num = Val(InputBox("Введите число", "", "496"))
     For i% = 0 To 4
          if Num=Perflist(i%) then
             MsgBox "Число совершенно!"
             Exit Sub
          end if
     Next
     MsgBox "Число НЕ совершенно!"
End Sub