Dim x(9), y(9)

'
s = 17108069
m7 = s Mod 7
'
m = m7 + 3
'
x(1) = 0
x(2) = 1
x(3) = 2
x(4) = 3
x(5) = 4
x(6) = 5
x(7) = 6
x(8) = 7
x(9) = 8

'
y(1) = 263
y(2) = 254
y(3) = 243
y(4) = 231
y(5) = 228
y(6) = 201
y(7) = 188
y(8) = 162
y(9) = 142

'
'y(1) = Exp(x(1))
'y(2) = Exp(x(2))
'y(3) = Exp(x(3))
'y(4) = Exp(x(4))
'y(5) = Exp(x(5))
'y(6) = Exp(x(6))
'y(7) = Exp(x(7))
'y(8) = Exp(x(8))
'y(9) = Exp(x(9))


'
xsum = 0
For i = 1 To m
xsum = xsum + x(i)
Next i

'
x2sum = 0
For i = 1 To m
x2sum = x2sum + (x(i)) ^ 2
Next i

'
xlogysum = 0
For i = 1 To m
xlogysum = xlogysum + x(i) * Log(y(i))
Next i


'
ylogsum = 0
For i = 1 To m
ylogsum = ylogsum + Log(y(i))
Next i
'
a = (ylogsum * x2sum - xsum * xlogysum) / (m * x2sum - xsum ^ 2)
b = (m * xlogysum - xsum * ylogsum) / (m * x2sum - xsum ^ 2)
'
'MsgBox a
ABIG = Exp(a)
MsgBox ABIG
MsgBox b

p2200 = ABIG * Exp(b * 19)

MsgBox p2200

' http://mathworld.wolfram.com/LeastSquaresFittingExponential.html

' https://en.wikipedia.org/wiki/List_of_countries_by_future_population_(United_Nations,_low_fertility_variant)