no suma los decimales en textbox

[guillebomtrasmiti]

hola amigos, como siempre por aquí...se que quizás es algo sencillo, pero no logro dar con el problema, tengo un text box que muestra la suma de otros, estos otros son decimales...el caso es que la suma me sale bien, pero le faltan los decimales...no se por que solo sale la cifra así;
1.400,00

quiere decir los decimales están...pero pone 00 no los suma la cifra real es;
1.400,14

aquí va el código gracias como siempre

Public Sub multiplicabaseimp()
Dim total1 As Decimal = 0
total1 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
TextTotal18.Text = Format(Format(total1, "##,##0.00"))

Dim total2 As Decimal = 0
total2 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
TextTotal8.Text = Format(Format(total2, "##,##0.00"))

Dim total3 As Decimal = 0
total3 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
TextTotal4.Text = Format(Format(total3, "##,##0.00"))

Dim total4 As Decimal = 0
total4 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
TextTotal2.Text = Format(Format(total4, "##,##0.00"))

If CDbl(TextoTRDTO.Text) = 0 Then
If CDbl(TextotrImp.Text) = 0 Then
Dim total As Decimal = 0
total = CDec((Val(TextTotal18.Text) + Val(TextTotal8.Text) + Val(TextTotal4.Text) + Val(TextTotal2.Text)))
TextTotal.Text = Format(Format(total, "##,##0.00"))
End If
End If

[bieres]

Hola, prueba a añadir esto, eso a mi me pasa a veces segun la version de NET framework que uses.

Código:

Val(TextTotal8.Text.Replace(".", ","))

[guillebomtrasmiti]

nada, probado pero no ... sigue igual...joer no entiendo...

[guillebomtrasmiti]

arreglado, para quien le pueda servir aporto....
'aquí saco el total del iva en los textbox correspondientes
Public Sub multiplicabaseimp()
Dim total1 As Decimal = 0
total1 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
TextTotal18.Text = Format(Format(total1, "##,##0.00").Replace(".", ","))

Dim total2 As Decimal = 0
total2 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
TextTotal8.Text = Format(Format(total2, "##,##0.00").Replace(".", ","))

Dim total3 As Decimal = 0
total3 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
TextTotal4.Text = Format(Format(total3, "##,##0.00").Replace(".", ","))

Dim total4 As Decimal = 0
total4 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
TextTotal2.Text = Format(Format(total4, "##,##0.00").Replace(".", ","))


If CDbl(TextoTRDTO.Text) = 0 Then
If CDbl(TextotrImp.Text) = 0 Then
Dim total As Decimal = 0
'total = CDec((Val(TextTotal18.Text) + Val(TextTotal8.Text) + Val(TextTotal4.Text) + Val(TextTotal2.Text)))
total = total1 + total2 + total3 + total4
TextTotal.Text = Format(Format(total, "##,##0.00"))

End If
End I