Function s(ByVal a As Integer,ByVal b As Integer) As Integer
Dim i As Integer
For i = 1 To 1000
If i Mod a = 0 And i Mod b = 0 Then
s = s + i
End If
Next
End Function