Separate text and keep it in text format

Hey all
I have found this code online that helps me a lot with my work but when using it I found a problem with it. The code is meant to split text to max 16 characters per string and continue it in the next column. The small problem I have is that it sometimes turns some of the new strings into dates instead of keeping in a text format. Do anyone of you have a fix to this?

On in the file, the different sheets have a wrong(1), a right(2) and before macro(3).