risolto spero che sia quella corretta

textFromTextArea = replace(textFromTextArea,VBcrlf, chr(9) & chr(13))