n = 15108097
k = n Mod 10000
'
m1 = k
c1 = k / 11
t1 = k / 111
'
m2 = 2 * k
c2 = k / 222
t2 = k / 22
'
t = (t1 * c1 * m1 + t2 * c2 * m2) / (m1 * c1 + m2 * c2)
MsgBox t