Calculate using decimals?

Hi guys,

I hope you can help with solving this Format and calculation issue.

All my fields in my calculation are formatted to make use of the following format: 1,00. I.e, it automatically takes a single decimal, and add the (,) comma ad 2 zeros. One can also capture a number with decimal, like 1,25

The problem is that my answer/result field .txtStockEOS1 does not calculate the decimals, only the numbers before the (,). Note: This field has not been formatted. I.e., 10 = 5,8 + 3,8 + 2,5, instead of the answer being 12,1

Here is my code that calculates on Change event:

Private Sub txtStockSOS1_Change()
   Me.txtStockEOS1 = Val(txtStockSOS1.Value) + Val(txtStockReceive1.Value) - Val(txtStockLost1.Value) - Val(txtStockBroken1.Value) - Val(txtStockWorn1.Value)
End Sub

Thank you all!