per convertire in euro una text uso il seguente codice

codice:
Text1.Text = Format(Text1.Text, "##,##0.00")
il fatto è che se non supero i 1.000 euro va bene
se scrivo 1.215,11

mi toglie il punto quando salvo.e mi salva 1215,11

nel database il campo e' tipo dati valuta ,formato euro,posizioni decimali 2.

come posso risolvere questo problema?