Prova una cosa del genere
codice:
Label1.Caption = Format(Text1.Text, "0.#######")