Private Sub Command1_Click()
Dim s1 As Integer, s2 As Integer
For s1 = 0 To 9
For s2 = 0 To 9
If (67008 + s1 * 100 + s2 * 10) Mod 67 = 0 And (67008 + s1 * 100 + s2 * 10) Mod 78 = 0 Then
Print (67008 + s1 * 100 + s2 * 10)
End If
Next s2
Next s1
End Sub