RECHERCHE DES MULTIPLES D'UN NOMBRE

Private Sub Command1_Click()
On Error GoTo E:
If Text1.Text = Empty Then 'Vérifie si il y a un texte
MsgBox "Erreur"
Exit Sub
End If
If Text1.Text < 0 Then 'Vérifie si le nombre est positif
MsgBox "RECHERCHE DES MULTIPLES N'ACCEPTE PAS LES NOMBRES NEGATIFS!"
Exit Sub
End If

C:
If Text1.Text = Int(Text1.Text) Then 'Vérifie si le nombre entier
If List1.List(0) = Empty Then 'Vérifie si la liste est vide
y = Text1.Text
For n = 1 To y
If y / n = Int(y / n) Then 'Si y / n = Nombre entier alors
List1.AddItem n
End If
Next n
Else
List1.RemoveItem (0) 'Vide la liste
GoTo C:
End If
Else
MsgBox "Erreur"
End If
Exit Sub
E:
MsgBox "ERREUR"

End Sub