Usa la funzione per ottenere il valore

CDbl(Text1.Text) * ...

P.S. Questo e' il forum sbagliato ...