求1000以内偶数相加的和的VB编程

Option Explicit

Private Sub Command1_Click()
Dim I As Integer
Dim He As Long

For I = 2 To 1000 Step 2
He = He + I
Next
MsgBox "1000以内偶数相加的和是" & He
End Sub

dim i as integer
dim sum as long
for i=0 to 1000 step 2'0算不算偶数，忘了，结果没影响，^_^
sum=sum+i
next
print sum

高中现在学VB编程？？？