se il separatore decimale è la virgola allora utilizza CDbl.
se il separatore decimale è il punto allora utilizza Val.
se vuoi utilizzare sempre Val allora sostituisci la virgola col punto
codice:
Numero = Val(Replace(Text1.Text,",","."))