Convertir une fonction de calcul en VBA Access

Bonjour tout le monde ;
j´ai essayer de traduire la formule suivante en Vba mais je plante .... :

MoyTrim1: (Nz([Cc1];0)+Nz([MoyDevT1];0)+Nz([Comp1]*2;0))/(VraiFaux(EstNull([Cc1 ]);0;1)+VraiFaux(EstNull([MoyDevT1]);0;1)+VraiFaux(EstNull([Comp1]);0;2))

merci .