n = 15108097
k = n Mod 10000

r = 16
doo = 10

r = 0.002 * k
doo = 0.0012 * k


f = -r / 2

di = 1 / (1 / f - 1 / doo)

MsgBox di

m = -di / doo

MsgBox m