imposible mantener decimales textbox

[guillebomtrasmiti]

Hola amigos...por aquí, ando, tengo un texbox que pone 200,18.....sale de una suma de un grid...hasta ahí todo correcto, pero tengo otro textbox que al ponerle una cifra; por ejemplo 5...pues se lo sumo y me lo deja en 205...y me obvia el coma 18....no se porque no pone los decimales....este es mi código;

Código:

 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(".", ",")

he probado poniendo todo en decimal..y tampoco

[guillebomtrasmiti]

ARREGLADO, por si a alguien le interesa o le pasa algún día... no se utliza val...si no que double

otroimp = CDbl(TextotrImp.Text)
total = CDbl(TextTotal.Text)
finalimp = CDbl(total + otroimp)
TextTotal.Text = Format(finalimp, "##,##0.00").Replace(".", ",")