Format dans une textbox

Bonjour ;

J’aimerais mettre ce format « TextBox1.Value = Format(TextBox1.Value, "0.00Km") dans mes textbox, mais comme pour remplir ces textbox j’utilise CDbl pour faire des calculs le code ne fonctionne pas. Comment faire pour pouvoir utiliser ce format dans les textbox. Merci de vous pencher sur mon problème.

Je joins un fichier: https://www.cjoint.com/c/MBdkCJXhoCK

Private Sub TextBox1_afterupdate()
Application.ScreenUpdating = False
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
TextBox4.Value = CDbl(TextBox1.Value) + CDbl(TextBox4.Value)
TextBox5.Value = CDbl(TextBox1.Value) + CDbl(TextBox5.Value)
Application.ScreenUpdating = True
End Sub