Jag försöker konvertera ett Excelark till Access

I Excel finns en kolumn A som använder funktionen NPV i cellen A7 med följande värden.
0.1
-10000
200
200
200
200
-8 514.57 kr (=NPV(A1;A2:A6))

Byggde denna funktion i Access för att testa om resultet blev lika
Function fnTestNPV() As Double
Static AA(5) As Double
Dim dRate As Double
Dim I As Integer

dRate = 0.1

AA(0) = -10000

For I = 1 To 4
AA(I) = 200
I = I + 1
Next I

fnTestNPV = NPV(dRate, AA())

End Function

Provkör i debug fönstret med detta resultat
?fnTestNPV()
-8789.01714363773


RESUTATEN blir som ni ser olika. Kan någon förklara skillnaden?

For I = 1 To 4
AA(I) = 200
I = I + 1
Next I

ska vara


For I = 1 To 4
AA(I) = 200
Next I

Tack, vilket larvigt fel :-)

Nu blev det lika.

/John