VB求100到200之间所有可以被3整除的数的总和?

Private Sub Command1_Click()
s = 0
For i = 100 To 200
If i Mod 3 = 0 Then
s = s + i
End If
Next i
Text1.Text = s
End Su