Débugage VB

Bonjour,
voila j'ai un tit soucie avec mon vb je n'arrive pas a le faire marcher pouvais vous m'aider svp a mon avis sa bug au niveau de l'annuité mais je comprend pas trop help me please


Option Explicit

Sub main()


Dim emprunt, taux, interet, amortissement, annuite, i As Single
Dim nombre_annee, Dannee As Integer


emprunt = InputBox("Quelle somme voulez vous empreinter?")
taux = InputBox("à quel taux en décimal ")
nombre_annee = InputBox("En combien d'année voulez vous rembourser cette somme de ")

i = 0

While nombre_annee > i


interet = emprunt * taux
annuite = (taux / (1 - (1 + taux) ^ -nombre_annee))
amortissement = annuite - interet
emprunt = emprunt - amortissement



MsgBox ("année " & Dannee)
MsgBox ("emprunt : " & emprunt)
MsgBox ("interet " & interet)
MsgBox ("amortissement " & amortissement)
MsgBox ("annuite " & annuite)

i = i + 1


Wend




End Sub