Skal øge en konstant, hvert 3. år i en kode for nutidsværdi.

Hej.

Jeg er ved at lave en Opgave i VBA, jeg skal lave en funktion som udregner nutidsværdien, ud fra input: rente, differensen mellem ind- og udbetalinger og årstal. Jeg har sat renten til 10 pct. opgaven går videre ud på at jeg skal øge renten første gang i år 4 med 1 pct. og efterfølgende skal den ene pct. øges med 20 pct. hvert 3. år. sådan så renten øges med 1.44 pct. i år 7 (til eksempel). Jeg har lavet en kode som udregner den generelle nutidsværdi, men kan simpelthen ikke finde en løsning på hvordan jeg skal øge min rente. Her er den kode som jeg er kommet frem til indtil videre:

Function Nutidsvaerdi(r As Double, Belob As Range, Aar As Range)
    Debug.Print Belob.Cells.Count
    If Belob.Cells.Count <> Aar.Cells.Count Then
        MsgBox "Error: Ranges have different length"
        Nutidsvaerdi = "ErrLength"
        Exit Function
    End If
    Dim a1(), b1()
    ReDim a1(1 To Belob.Cells.Count)
    ReDim b1(1 To Belob.Cells.Count)

    For i = 1 To Belob.Cells.Count
        a1(i) = Belob(i)
        b1(i) = Aar(i)
    Next
    Nutidsvaerdi = Mellemregning(r, a1, b1)
End Function
Private Function Mellemregning(rr, xx, yy)
    Sum = 0
    For i = 1 To UBound(xx)
        Sum = Sum + xx(i) / ((1 + rr) ^ (yy(i) - yy(1) + 1))
    Next
    Mellemregning = Sum
End Function

Til information, er det også en del af opgaven at den skal være delt over to funktioner, ved brug af privat funktionen.

Håber der er en som kan hjælpe mig.