Código:
he probado poniendo todo en decimal..y tampoco Dim otroimp As Double Dim total As Double Dim finalimp As Double If TextotrImp.Text = "" Or TextotrImp.Text = "0" Then otroimp = CDec(Val(TextotrImp.Text)) Else otroimp = CDbl(Val(TextotrImp.Text)) total = CDbl((Val(TextTotal.Text))) finalimp = total + otroimp TextTotal.Text = Format(finalimp, "##,##0.00").Replace(".", ",")