VBA. определить ценность облигации и сравнить её с нынешней ценой.

[killerplize]

У меня тут проблемка встала. Надо написать функцию в VBA. Задача такова (перевожу с англ.):
Нужно определить ценность облигации и сравнить её с нынешней ценой.
Если цена > ценности, то надо вывести сообщение, что не стоит покупать.
Если цена < ценности, то надо вывести сообщение, что нужно покупать.
Если цена = ценности, то надо вывести сообщение, что типа без разницы.

Вот уравнение для определения ценности облигации:

Ценность облигации = Купоновая плата (Процент грубо говоря) / (100% + Процентная ставка) ^ первый год + Купоновая плата/ (100% + Процентная ставка) ^ второй год и т.д. до последнего года + Face Value (это сколько ты получишь по истечении срока облигации)/(100%+прочентная ставка) ^ последний год

Пример:
Face Value = F = 1000
Скоко лет = Т = 3 года
Купоновая плата = С = 50
Процентная ставка = R = 10%

Ценность = C / (1 + r)^1 + C / (1 + r)^2 + C / (1 + r)^3 + F / (1 + r)^3 =
= 50 / (1 + 0.1)^1 + 50 / (1 + 0.1)^2 + 50 / (1 + 0.1)^3 + 1000 / (1 + 0.1)^3 = 875.67

Вот примерно так это решается.

Я сам написал что-то, но почему-то не получается.
Вот мои малевания:

Function Decision1(Coupon, FaceValue, MarketPrice As Currency, InterestRate As Variant, Years As Integer) As String
Dim a As Currency
Dim b As Integer
For b = 1 To Years
a = Coupon / ((1 + InterestRate) ^ b)
Next b
BondValue = a + FaceValue / ((1 + InterestRate) ^ Years)
If BondValue < MarketPrice Then
    Decision1 = "The bond is overvalued by " & MarketPrice - BondValue & "." & "Don't buy it!"
    ElseIf BondValue > MarketPrice Then
    Decision1 = "The bond is undervalued by " & BondValue - MarketPrice & "." & "Should buy it!"
    Else: BondValue = MarketPrice
    Decision1 = "The bond is neither premium, nor discount!"
    End If
End Function

Я не знаю что тут делать. Пробовал и так, и эдак, один х*р не получается. Я попробовал написать для конкретно 3 лет, вот тогда у меня получается, но мне надо, чтобы эта функция работала для всех случаев. Если хотите, могу запостить функцию для конкретно 3 лет.
Помогите плз.

[killerplize]

Все, сам сделал. Надо было просто перед циклом написать BondValue = 0, и все. Модеры, можете удалять топик.