关于变量赋值的问题

我在验证do...loop循环时发现vba的这个问题，大家可以试一试，i=j=0这样赋值会出错，i=j=1,非零数时，结果是对的，我想问问题出在什么地方，请高手指教。
Private Sub c1_Click()
Dim i, j
i = j = 0
Do
i = i + 1
j = j + 1
Loop While i < 2
t1 = "i=" & i & "   j=" & j   't1为文本框
End Sub