textbox.value Replace

Hallo zusammen, ich stehe wieder mal auf dem Schlauch
Ich habe eine Textbox
TextBox = replace(TextBox, " 5 ", chr(13)) ' das funktioniert

Zurück geht aber nicht!
textbox = replace(textbox, vblf , " ohne CR ") ' geht leider nicht !!!!

Wenn ich aber beim ersten Replace
Textbox = replace(TextBox, " 5 ", "Test CR") 'geht
Textbox = replace(TextBox, "Test CR", "etwas Neues") 'geht

Kann ein Chr(13) nicht ersetzt werden und warum?
Danke für Eure Hilfe
lg Pepi