Dim x(9), y(9)

n = 15108097
k = n Mod 10000
T = n Mod 100

m = Fix(0.06 * T)

x(1) = 0.511
x(2) = 105.7
x(3) = 1777
x(4) = 135
x(5) = 139.6
x(6) = 938.2
x(7) = 939.6
x(8) = 80400
x(9) = 91000

y(1) = 1.450656E+34
y(2) = 0.0000022
y(3) = 0.00000000000029
y(4) = 8.4E-17
y(5) = 0.000000026
y(6) = 3.1536E+36
y(7) = 885.7
y(8) = 1E-25
y(9) = 1E-25

sx = 0
For j = 1 To m
sx = sx + x(j)
Next j

sy = 0
For j = 1 To m
sy = sy + y(j)
Next j


sxy = 0
For j = 1 To m
sxy = sxy + x(j) * y(j)
Next j

sx2 = 0
For j = 1 To m
sx2 = sx2 + x(j) ^ 2
Next j


g = (m * sxy - sx * sy) / (m * sx2 - sx ^ 2)
i = (sy - g * sx) / m

MsgBox g
MsgBox i