Visual Basic - suma de double

Dim aa, ab, ac, ad As Double
aa = Text8(0)
ab = Text8(1)
ac = Text8(2)

st = Val(aa) + Val(ab) + Val(ac)

subtotal = FormatNumber(st, 2, vbFalse)

tengo ese codigo y los numeros son 4.000.000,00 + 25,00 y me coloca 29,00 en lugar de
4.000.025,00

gracias el error debe ser tonto

st = cDbl(aa) +CDbl (ab) + CDbl(ac)

No me funciono eso amigo.
gracias igual.

si me funciono hermano pero el problema ahora es que cuando esta vacia la variable da error a diferencia del VAL

st = + CDbl(aa) + CDbl(ab) + CDbl(ac)

si ac esta vacio da error!