OK!

Adesso ho un altro problema....

totProdotto = Cdbl(Replace(prezzo,",","."))* Cint(qta)

totProdotto risulta 1295 quindi senza virgola o punto.