PROGRAMA NUMEROS PERFECTOS EN VISUAL BASIC

numero = Val(TextBox1.Text)
sumas = 0
For i = 1 To numero - 1
If numero Mod i = 0 Then sumas = sumas + i
Next
If sumas = numero Then
Label5.Text = Str(numero) + " es un numero perfecto"
Else
Label5.Text = Str(numero) + " no es un numero perfecto"
End If