Dim x(88), y(88)

n = 15107086
k = n Mod 10000
T = n Mod 100

m = T + 2

For j = 1 To m
x(j) = j
Next j

y(1) = 1
y(2) = 4
y(3) = 6
y(4) = 9
y(5) = 11
y(6) = 12.011
y(7) = 14.007
y(8) = 15.999
y(9) = 18.99840316
y(10) = 20.1798

y(11) = 22.98976928
y(12) = 24.305
y(13) = 26.9815
y(14) = 28.085
y(15) = 30.97376
y(16) = 32.06
y(17) = 35.45
y(18) = 39.948
y(19) = 39.0983
y(20) = 40.078

y(21) = 44.9559
y(22) = 47.867
y(23) = 50.9415
y(24) = 51.996
y(25) = 54.938044
y(26) = 55.845
y(27) = 58.933194
y(28) = 58.6934
y(29) = 63.546
y(30) = 65.38

y(31) = 69.723
y(32) = 72.63
y(33) = 74.92
y(34) = 78.97
y(35) = 79.904
y(36) = 83.798
y(37) = 85.4678
y(38) = 87.62
y(39) = 88.90584
y(40) = 91.224

y(41) = 92.90637
y(42) = 95.95
y(43) = 98
y(44) = 101.07
y(45) = 102.9055
y(46) = 106.42
y(47) = 107.8682
y(48) = 112.414
y(49) = 114.818
y(50) = 118.71

y(51) = 121.76
y(52) = 127.6
y(53) = 126.90447
y(54) = 131.29
y(55) = 132.90545
y(56) = 137.3
y(57) = 138.905
y(58) = 140.116
y(59) = 140.90766
y(60) = 144.242

y(61) = 145
y(62) = 150.36
y(63) = 151.964
y(64) = 157.25
y(65) = 158.92535
y(66) = 162.5
y(67) = 164.93033
y(68) = 167.259
y(69) = 168.93422
y(70) = 173.045

y(71) = 174.9668
y(72) = 178.49
y(73) = 180.94788
y(74) = 183.84
y(75) = 186.207
y(76) = 190.23
y(77) = 192.217
y(78) = 195.08
y(79) = 196.966
y(80) = 200.592

y(81) = 204.38
y(82) = 207.2
y(83) = 208.9804
y(84) = 209
y(85) = 210
y(86) = 222
y(87) = 223
y(88) = 226

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