nooooooooooooooo ma che!!!
in questo modo mi toglie la virgola

caro steno 12 se ci sono decimali mi toglie la virgola...

ho provato cosi' dimmi se vabene

If InStr(1, Me.TXT_Importo.Text, ".") > 0 Then

Else
Me.TXT_Importo.Text = Format(Me.TXT_Importo.Text, "###0.00") '"#0.00"
End If

controllo se ci sono decima li altrimenti lo formtto!!
è proprio l'ultima spiaggia