Private Function IsMultiple(ByVal NumberReference As Double, ByVal NewValue As Double, ByRef lResult As Long) As Boolean
    lResult = 0
    If Not (InStr(1, CStr(NewValue / NumberReference),  ".") >= 1 Or InStr(1, CStr(NewValue / NumberReference), ",") >= 1) Then IsMultiple = True: lResult = NewValue /  NumberReference
End Function

Sub EXEMPLE()
    Dim lReturn As Long
    Debug.Print IsMultiple(7, 14, lReturn) & Space(2) &  lReturn 'Vrai 2
    Debug.Print IsMultiple(7, 21, lReturn) & Space(2) & lReturn 'Vrai 3
    Debug.Print IsMultiple(7, 22, lReturn) & Space(2) &  lReturn 'Faux 0
    Debug.Print IsMultiple(7, 28, lReturn) & Space(2) & lReturn 'Vrai 4
    Debug.Print IsMultiple(7, 130, lReturn) & Space(2) &  lReturn 'Faux 0
End

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

function IsMultipleAofB(NumberA, NumberB: Integer): Boolean;
begin
  Result := (NumberA >= NumberB) and
            (NumberB > 0) and
            (NumberA mod NumberB = 0);
end;

function isMultiple( number :Number )
:Object{
    return { 
    of:function( multiple :Number )
    :Boolean{
        return (multiple/number)%1== 0 ;
    }} ;
}

(* Indique si (max x y) est un multiple de (min x y). *)
let rec multiple x = function
      | y when y > x -> multiple y x
      | y -> x mod y = 0

function IsMultiple($a, $b)
{
    return ($a%$b==0);
}

; est-ce-que d divise n ?
(define (diviseur? d n) (= 0 (% n d)))

 proc IsMultiple {a b} {return [expr {$a%$b ? 0:1}]}

public bool IsMultiple(int a, int b)
{
	return ( (a%b) ==0);
}

Function IsMultiple(ByVal W_Chiffre As Double, ByVal W_Multiple As Double) As Boolean
    IsMultiple = (W_Chiffre Mod W_Multiple = 0)
End Function