Visual Basic - Codigo numeros perfectos.

TEngo este codigo que es para que me vaya dando los numeros perfectos hasta q encuentre 4 de ellos. No se porq al ejecutarlo se me queda colgado el programa. A ver si me podeis ayudar. Gracias.

Option Explicit

Private Sub Command1_Click()
Dim i As Long
Dim b As Long
Dim s As Long
Dim c As Long
Dim iMinusOne As Long
Dim contador As Long

On Error GoTo errHandler

List1.Clear

i = 1
contador = 0
do
Label3.Caption = "Processing number:" & i
iMinusOne = i - 1
s = 0
For b = 2 To iMinusOne
For c = b To iMinusOne
If b * c = i Then
s = s + b + c
End If
Next c
Next b
If s = (i - 1) Then
List1.AddItem i
contador = contador + 1

End If
i = i + 1
Loop While contador <= 4
MsgBox "Done", vbInformation, "Perfect Numbers"
Label3.Caption = ""

Exit Sub

errHandler:
MsgBox Err.Description, vbCritical, "Perfect Numbers"
End Sub

iMinusOne arranca en 0 y luego queres hacer un for de 2 hasta 0 hace un ciclo infinito

He probado a ponerle un numero mas grande en i como por ejemplo 5 y sigue sin ir. Gracias por tu respuesta.

Un saludo.

Hola!

mmm... me he empezado a leer tu codigo ... xo me he perdido ...

xo mira que he encontrado ... en que lenguaje lo quieres?
# 3 Implementación en lenguajes de programación

* 3.1 Lenguaje Visual Basic .Net
* 3.2 Lenguaje C
* 3.3 Lenguaje PHP
* 3.4 VisualBasic
* 3.5 C#
* 3.6 Haskell
* 3.7 Java
* 3.8 Python
* 3.9 SLE
* 3.10 Fortran 90
* 3.11 Scheme
* 3.12 Batch Script
* 3.13 Extended Pascal

http://es.wikipedia.org/wiki/N%C3%BAmero_perfecto#Lenguaje_C

Suerte,

SMK

necesito saber de los num perfectos