Visual Basic - AYUDA CON RESTA DE DECIMALES EN VB6

Que tal,

Estoy teniendo problemas con una resta y multiplicación de números....

les anexo mi formula .... espero y me puedan ayudar. estos son mis problemas:
- en donde "A" me funciona pero x ejemplo el resultado deberia ser 18.569 entonces debería salir en la pantalla $18.57 ya que sube al inmediato superior pero solo me sale "$18.56"
- en "D" quiero que me reste dos números con decimales 12.85 - 2.50 me debería salir 12.50 y me sale 12.00


a = Format(Val(TOTAL * 12) / 100, "0.00")
b.Text = CDbl(a.Text) + CDbl(TOTAL.Text)
b.Text = Format(b.Text, "##.00")
d = Val(b.Text) - Val(c.Text)
d.Text = Format(d.Text, "##.00")

saludos

Prueba con esto
a = Format(total * 12 / 100, "0.00")
b.Text = CDbl(a.Text) + CDbl(total.Text)
b.Text = Format(b.Text, "##.00")
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")
El Val no reconoce los puntos o las comas y te da solo los enteros, puedes tomar los textos como numeros siempre sean correctos.

Gracias me sirvio mucho me podrias ayudar si quiero:
si el text "C" esta vacio entonces el Text "D" es igual al text "B"
puse el siguiente codigo pero me sale error:

If c = "" Then d = b.Text
End If
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")

SALUDOS, GRACIAS

En esta linea d = b.Text - c.Text, dara error porque c es igual a "", y no se puede restar a un numero un alfabetico
Esto otro podria resultar
If c = "" Then
d = b.Text
else
d = b.Text - c.Text
d.Text = Format(d.Text, "##.00")
endif

Muchas gracias me sirvió el código a la perfección
Saludos