Visual Basic - Como Restar Decimales

Tengo un Programa de ventas " Dao con acces"
la funcion que quiero es al vender un producto se descuente el Precio Unitario y al sacar el reporte de existencia por valor me aparesca el valor real segun la cantidad ,
y mi problema es cuando vendo un producto Precio U. es de $ 3.50 me lo convierte en numero entero $ 4.00 y no se que hacer espero alguien me pueda ayudar
espero les sea util lo que escribi.

Dim recActualizarValor As DAO.Recordset
Dim i As Byte, sq As String, pro As String, val As Integer

For i = 1 To lv.ListItems.Count
pro = lv.ListItems(i)
val = FormatCurrency(CDbl(lv.ListItems.item(i).SubItems(8)))
sq = " UPDATE productos SET valor = valor - '" & val & "' WHERE nombre = '" & pro & "'"
Set recActualizarValor = Base_de_datos.OpenRecordset(sq, dbOpenDynamic, 0, dbOptimistic)
Next
Wrk.Rollback
recActualizarValor.Close
Set recActualizarValor = Nothing
End Sub
.............Gracias

Normal!!
Estás declarando la variable 'val' como entero.

Tal como te dice Peleon, estás usando una variable que NO ADMITE DECIMALES, para restarle decimales: es imposible así.
Yo solamente quiero darte un consejo: no nombres a tus variables igual que las funciones de VB (variable val, función Val( ) ).

gracias lolazo y a Peleon por Sus consejos..
me podian aconsejar para solucionar ese problema ....
por que ya intente con lo que se pero no he podido gracias por la atencion.....

gracias ya pude solucionar el problema estaba enfrente de mis ojos y no me habia dado cuenta