Ciao AlexCJB,
in questo modo poni il separatore delle migliaia ed arrotondi per eccesso/difetto la seconda cifra decimale:
codice:
Text1.Text = Format(Text2.Text, "#,##0.00")