Private Sub Command1_Click()
Dim i As Integer,s As Long
For i = 1 To 100
If i Mod 3 = 0 Or i Mod 4 = 0 Then
s = s + i
End If
Next i
Print s
End Sub