Wrong result adding values of text boxes in a userform.

Hello

I am not able to understand this.

I have 4 text boxes in a user form where user type numbers. At the end i have another text box(yellow one) that adds these numbers using this code.

Dim x As Integer, Tot As Double
    Me.TextBox5.Text = ""
    For x = 1 To 4
    Tot = Tot + Val(Me("prcase" & x).Text)
    Next x
    Me.TextBox5.Text = Tot

In another text box(grey one) user types another number.

Then using this code

Private Sub TextBox6_Change()
TextBox7.Text = Val(TextBox5.Text) + Val(TextBox6.Text)
End Sub

i try to add the values of the two previous text boxes.

I get wrong result when i use decimals numbers and i can not understand what is wrong.

Thanks in advance for any assistance here.