Label.caption: Addition de Valeurs, Résultat en Monétaire

Bonjour Le Forum

J'utilse ce code pour des TextBox dont la valeur est exprimée en Euros,
par contre je cherche à faire la même chose dans un Label, et le résultat apparait uniquement arrondi.
Je souhaite le faire apparaitre en monétaire à 10-2!


#TotalCA = Format(TotalCA, "###,###.00")
Dim CHN As String, Start As Integer
CHN = TotalCA.Text
Start = TotalCA.SelStart
If CHN <> "" Then
If Right(CHN, 1) <> "€" Then
CHN = RTrim(CHN) & " €"
TotalCA.Text = CHN
TotalCA.SelStart = Start
End If
End If#

Merci à celles et ceux qui ont une idée!
Bonne journée