下列程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5、7整除的整数，请补充完整此程序：
Pvivate Sub Form_Click()
Sum=0
For i=1 To 1000
If______Then
sum=sum+i
End If
Next i
MsgBox sum
End Sub

【参考答案】

i Mod 3=0 And i Mod 5=0 And i Mod 7=0