Private Function IsMultiple(ByVal nb1 As Double, ByVal nb2 As Double) As Boolean
If nb2 = 0 Then IsMultiple = True: Exit Function
IsMultiple = ((Int(nb1 / nb2) = nb1 / nb2) And nb1 <> 0)
End Function
Sub test()
Debug.Print IsMultiple(125, 25)
End Sub