n = 15108097 k = n Mod 10000 T = n Mod 100 m = n Mod 35 a = n Mod 25 L = n Mod 10 ' s = k / L p = -ms / L ' MsgBox s MsgBox p