n = 15108097 k = n Mod 10000 t = 10 L = 1 a = 1 / k d = t * L * a MsgBox d