高手来看看，定义成Currency不进入循环,有没有人知道，进来看看

Private Sub Form_Load()
Dim i As Currency, j As Currency
Me.AutoRedraw = True
For i = 2 To 400000
j = j + 1
Next
Print j
End Sub
如果i定义成long就可以， 或者400000改成500000 也是可以，就是这400000左右不行
求解答