Function MagneticMoment