Visual Basic - NO FUNCIONA CORRECTAMENTE, CENTROS NUMERICOS VB

Hola, bueno vengo buscando ayuda para un programa que encontre en internet, de centros numericos.

La codificacion es:

Private Sub Command1_Click()
On Error GoTo salir
Dim sumaA As Integer
While 1 < TextBox1.Text
For i = 1 To numero - 1
sumaA = sumaA + i
Next
i = numero + 1
While sumaA > sumaB
sumaB = sumaB + i
i = i + 1
If sumaA = sumaB Then
MsgBox numero
End If
Wend

numero = numero + 1
sumaA = 0
sumaB = 0
Wend
Exit Sub
salir:
End
End Sub


otro

Private Sub Form_Load()
Dim N As Long, I As Long, S As Long
Dim K As Integer, Cad As String
N = 1: K = 0: Cad = ""
While True
S = 0
For I = 1 To (N - 1)
If N Mod I = 0 Then S = S + I
Next I
If N = S Then
Cad = Cad & N & vbCrLf
K = K + 1
End If
If K = 3 Then
TxtPerfecto = Cad
Exit Sub
End If
N = N + 1
Wend
End Sub


Mi problema es que, cuando lo corro, valla, no me muestra nada y sin mas se sale, no marca error ni nada, solo se sale, pero en una ocacion, lo corri y si, me mostro el mensaje pero le di al usuario la opcion de decidir hasta que numero ver que centros hay,
Ejemplo:
DEL 1 AL [ 8]
y me manda 3 centros, es decir.. ¿Que onda?
Ojala puedan ayudarme, estoy por arrancarme la cabeza xd :3
Gracias, Saludos!

Quita el On Error Goto, y podras ver el error que sale y obrar en consecuencia.