程序改错，请各位大佬帮忙，真的非常谢谢！！！

1、程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有一行有错误。改正错误，使它能输出正确的结果。
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
i = 1
Do Until s > 2000
s = s + i
'下一行程序有错
i = i + 1
Loop
Print s
End Sub
2、程序功能：求个位数是6，且能被3整除的所有四位数之和。程序中有一行错误，改正错误，使程序能输出正确的结果。
Private Sub Command1_Click()
Dim i%
Dim s&
s = 0
For i = 1000 To 9999
'下一行程序有错！
If i Mod 3 = 0 and i Mod 1000 = 6 Then
s = s + i
End If
Next I
Print s
End Sub

i = i + 1
->
i = i + 2

If i Mod 3 = 0 and i Mod 10 = 6 Then