Perchè devi usare la funzione Format
codice:
Text1.Text = Format(VariabileConNumero, "00000#")