运行for循环时真的遇到鬼了……

运行一个for循环，代码如下：
Sub test01()
Sx = 8.2
NN = 100 '分辨率
Nx = NN * Sx
MsgBox (Nx)
For N1 = 0 To Nx
Cells(1, 5) = N1
Next N1
End Sub
For循环是N1从0运行到Nx结束，Nx=820，用Msgbox检查过
但是一运行，就发现每次N1都是到819就结束了，而如果我直接改成For N1 = 0 to 820又没问题。
请问：我电脑里是藏着一个鬼吗？
大家可以尝试一下，看看会不会遇到鬼……