Try this...
VB Code:
  1. Text1.Text = Format$("34152667383", "Scientific")