Userform en pourcentage 3 décimale

Bonjour,

Quelqu'un peut m'aider je ne comprends pas pourquoi ça ne fonctionne pas.

Quand j'inscrit :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Replace(TextBox1.Text, " %", "")
TextBox1.Text = Format(Val(TextBox1.Text) / 100, "0.00%")
End Sub

Tout fonctionne très bien mais aussitôt je veux rajouter des décimales :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Replace(TextBox1.Text, " %", "")
TextBox1.Text = Format(Val(TextBox1.Text) / 100, "0.000%")
End Sub

La le pourcentage s'inscrit correctement dans mon userform mais quand il le reproduit sur ma feuille de calcul il inscrit exemple 5850 % pour 5,850 %.

Merci !