XL 2016 mise en format d'une textbox

Bonjour,
j'ai le code suivant dans un USF :

Private Sub TextBox23_Change()

Sheets("USF5").Cells(11, 2).Value = TextBox23.Value

End Sub

et dans la même textBox, j'aimerai que celle-ci soit formatée comme suit :
TextBox23.Text = Format(TextBox23, "#,##0.00 CHF")

Le problème est lorsque je charge l'UF, lorsque j'écris dans la Textbox 1000, Excel me donne cela comme format 1.0C

Merci de votre aide.