Ook wel 's handig...

Function banktegoed(a, r, b)
    Dim rpm
    rpm = (1 + r / 100) ^ (1 / 12)
    banktegoed = b / (1 - rpm) - b / (1 - rpm) * rpm ^ a
End Function

Hierbij is:

a: aantal maanden
r: rente per jaar
b: vaste aflossing per maand