codice:
dim Fatt1 as double
dim Fatt2 as double
Dim asso as String
fatt1 = val(replace(txtqta.text,",","."))
fatt2 = val(replace(txtpz.text,",","."))
asso=fatt1 * fatt2
t.text= replace(asso,".",",")

Fatt2 Vale ancora 126,12

non funziona!