problema con operacion

[manedf]

he puesto mi codigo completo abajo.
Mi problema es que cuando "a" toma un valor mayor a 999 la operacion no
sale bien por ejemplo:

si a = 1,000
me da los sig. resultados:
subtotal=1,00
iva=0.15
total= 1.15

COMO PUEDO RESOLVER ESTE PROBLEMA ? GRACIAS

Dim X as Double
Dim a As Double
Dim b As Double
Dim c As Double
Formato = "###,##0.00"
a = val(Grid2.TextMatrix(X, 5))
b = a * 0.15
c = a + b
LabelSubtotal = Format(a, Formato)
LabelIva = Format(b, Formato)
LabelTotal = Format(c, Formato)
End Sub

[culd]

Si trabajas con dinero, la variable es Currency.

Para el formato, fijate que ayer respondie un post como redondear a dos decimales siempre. Trata de implementarlo que funciona perfecto. y proba con ese.

Saludos

[ManuNic]

prueba reemplazando la funcion val por otra como cdbl()