s = 19107012 L = s Mod 10 T = s Mod 100 k = s Mod 10000 c = 3 * 10 ^ 8 f_small = c / (T * 10 ^ (-9)) F_BIG = c / (L * 10 ^ (-9)) wavelebgthchange = T * 10 ^ (-9) - L * 10 ^ (-9) MsgBox wavelebgthchange v = -c + c * F_BIG / f_small MsgBox v