The problem is how you refer to your Values Array within your loop
statement. You need to refer to each bucket you created. Add a
counter...

Dim i as Integer



i = 0



Do Until RetRate >= -10
RetRate = IRR(Values(i), Guess + 0.1) 'This refers to each bucket as
Values(0), Values(1), etc.

i = i + 1
Loop