Visual Basic para Aplicaciones - Suma en textbox

estimados foreros, tengo un problema con el siguiente codigo:

Private Sub textbox85_Change()
Dim X As Integer
Dim a As Integer
Dim ultima As Integer
Dim Apagar As Double
Dim IGIC As Double

For X = 4 To 10000
If salidas.Cells(X, 1) = "" Then
ultima = X - 1
Exit For
End If
Next

For a = 4 To ultima
IGIC = (Val(TextBox85) * Val(TextBox83) / 100) 'aqui bien
TextBox82 = IGIC
Apagar = Val(TextBox85) + Val(TextBox82) 'aqui mal
TextBox86 = Apagar

TextBox82 = Format(TextBox82, "#,##0.00 €")
TextBox86 = Format(TextBox86, "#,##0.00 €")
Next

End Sub

Al operar con cifras con decimales siempre me redondea los resultados, vaya que si da 2.15 pone 2 pero solo en las sumas, he intentado sacar el "Val" pero entonces pone un valor al lado del otro.
alguien me puede decir que hago mal?
Mil gracias de antemano
Albert

la función Val te convierte el texto en número, pero se 'come' los signos (.)
podrías usar CDbl aunque tampoco es lo ideal... dependiendo del caso...

Saludos desde Baires, JuanC

Gracias, como bien dices me funciona en un textbox con 2 sumandos pero no en otro que tiene exactamente el mismo codigo pero con 3 sumandos.
Seguire investigando
Repito gracias

Hola,

...¿por qué no intentas aprovechar la relación que tiene VBA con Excel y en una hoja oculta dejas los datos por sumar, lo sumas desde la hoja de calculo y después lo recoges desde tu apicación?

Saludos desde Puebla, México. Rodolfo Mtz. Glz.