Pb dans une boucle pour une user form

Bonjour,
Je souhaite faire une boucle qui met la somme de plusieurs TextBox dans un label.
Au début je voulais faire une routine à rappeler des que renseigne une des texbox mais ça ne marchait pas (voir les lignes en commentaire) du coup j'ai déjà essayé de la faire normalement.

'Sub CalculTotal(Source As TextBox, Cible As Label)
Private Sub TxbMontant1_AfterUpDate()
    TxbMontant1 = Format(TxbMontant1.Value, "# ##0.00€")
    Dim i As Integer
        i = 1
        LblTotal.Caption = 0
    For i = 1 To 15
        LblTotal.Caption = Format(Val(LblTotal.Caption) + Val(Controls("TxbMontant" & i).Value), "# ##0.00€")
    Next i
End Sub

'Private Sub TxbMontant1_AfterUpDate()
'    CalculTotal TxbMontant1, LblTotal
'End Sub

ca à l'air de marcher sauf qu'il ne me calcula pas les chiffre après la virgule
et qd je modifie ma txbmotant1 il me met toutes les autre déjà remplie à 12....
j'y comprend rien