>Can not get it working too :( I tried to

Sorry, thats not realy what I meant. I'm guessing this will work:

lcCode=strtran(chrtran(lcCode, chr(10), ''), chr(13), chr(13) + chr(10))

Anywhere before the Alines()

>Yes, but I'm not 100% sure, that my code does it right in all cases.

I dunno, I haven't looked at your code close enough, but the orginal version never made those changes.