How to convert any types format into Text with 5 digits in selection?

For instance, the content I select is "234", and I want it to convert to "00234". Just like the function "TEXT" in excel. How can I realize it promptly in VBA?

Thanks!!!