Ciao Pinco Pallino 2,
devi fare attenzione ai punti ed alle virgole, così ottieni il risultato che cerchi (formatta con il punto delle migliaia ed arrotonda per eccesso o per difetto)
codice:
Private Sub Command1_Click()
Text2.Text = Format(Text1.Text, "#,##0.00")
End Sub