Probleme VBA Nombre

Bonjour,

Je saisie des infos dasn un USF et il ya des calculs qui se font.

Tout fonctionne correctement lorsque je saisie des chiffres rond (1000, 2610...).
Dès que je saisie avec une virgule, mes calculs se mettent à l'arrondi

ex . si 1200 + 1000.50 = 2201 je pensais avoir 2200.50.

Ci dessous extrait de mon code

Private Sub montant1_change()
On Error Resume Next
Var = Val(montant1) + Val(montant2) + Val(montant3) + Val(montant4) + Val(montant5) + Val(montant6) + Val(montant7) + Val(montant8)
HT.Value = Var
Me.Label63.Caption = Me.montant1
End Sub

cela jusque montant 8....


Private Sub HT_change()
On Error Resume Next
Var = Val(HT) * 19.6 / 100
TVA.Value = Var
Me.TextBox6 = Me.HT
End Sub

Private Sub HT_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 2 Then
KeyAscii = 2
Beep
End If
End Sub
Pouvez vous m'aider ?

Manu