calcul automatique sur un userform

Private Function Val1() As Currency
Val1 = Replace(TextBox1.Value, ".", ",")
End Function
Private Function Val2() As Currency
Val2 = Replace(TextBox2.Value, ".", ",")
End Function
Private Function Val3() As Currency
Val3 = Replace(TextBox3.Value, ".", ",")
End Function
Private Sub TextBox1_AfterUpdate()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
TextBox4.Value = Val1 + Val2 + Val3
GoTo Finish
End If
TextBox4.Value = ""
Finish:
End Sub
Private Sub TextBox2_AfterUpdate()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
TextBox4.Value = Val1 + Val2 + Val3
GoTo Finish
End If
TextBox4.Value = ""
Finish:
End Sub

Private Sub TextBox3_AfterUpdate()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" Then
TextBox4.Value = Val1 + Val2 + Val3
GoTo Finish
End If
TextBox4.Value = ""
Finish:
End Sub

Private Sub UserForm_Click()
TextBox4.Enabled = False
End Sub

Private Sub txt_Change()
txt.Value = Replace(txt.Value, ".", ",") ' <--- ligne ajoutée
 x = 0
 For i = 1 To 3
 If (UserForm1.Controls("Textbox" & i)) <> "" Then x = x + CDbl(UserForm1.Controls("Textbox" & i))
 Next
 UserForm1.TextBox4 = x
End Sub