Over flow error

le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CmdOk_Click()
 
Dim i As Integer
txtR.Text = ""
i = 1
While i > 0
If Val(txtData.Text) Mod i = 0 Then
txtR.Text = txtR.Text & i & vbCrLf
End If
i = i + 1
Wend
End Sub
j'ai besoin d'aide