Error en multiplicación

[guillebomtrasmiti]

Hola amigos...sigo preguntando cosas que no entiendo...TENGO UN TEXTBOX...vale=?=)...bien en el meto una cifra...genial...y en otro textbox pongo el total de la cifra del otro textbox *1.08...pues bien...el tema es que en un textbox pone: 648,51
y al multiplicarlo por 1.08......me pone en el otro textbox: 699,84
aaaaaaaahhhhh no entiendo nada..en cambio en otras cifras me da bienn...
son solo en algunas que no funcionaaaaaa




lo tengo hecho así
total18 = CDec(CStr(Val(TextBImp18.Text) * 1.18))
'TextTotal18.Text = Format(Format(total18, "##,##0.00").Replace(".", ","))
'total08 = CDec(CStr(Val(TextBImp8.Text) * 1.08))
'TextTotal8.Text = Format(Format(total08, "##,##0.00").Replace(".", ","))
'total04 = CDec(CStr(Val(TextBImp4.Text) * 1.04))
'TextTotal4.Text = Format(Format(total04, "##,##0.00").Replace(".", ","))
'total02 = CDec(CStr(Val(TextBImp2.Text) * 1.02))
'TextTotal2.Text = Format(Format(total02, "##,##0.00").Replace(".", ","))
'aquí resto el dto sobre las bases imponibles y luego le suma el iva al textbox