n = 15108097 k = n Mod 10000 t = n Mod 100 Re = 6371 * 10 ^ 3 R = Re R = Re + t R = Re + k R = n G = 6.674 * 10 ^ (-11) Mearth = 5.97219 * 10 ^ 24 v = Sqr(Mearth * G / R) MsgBox v