Pour l'apparence dans la TextBox après saisie :
Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Format(Val(Replace(TextBox1.Value, ",", ".")), "#,##0.00")
End Sub
Lors de l'affectation convertir avec : Val(Replace(TextBox1.Value, ",", ".") pour affecter un nombre de façon sûre (une TextBox ne contient que du texte.
Cordialement.