quando vai a prendere il valore della text fai così

dim dVal as double

dval=val(Replace(text1.text,",","."))