#Define CRLF Chr(13)+Chr(10) ** assuming have the array already ** note: using For ji instead of For Each ** because if a single line is long, it could error out with a ** "string is too long to fit" error Select myreport Blank Field expr For ji = 1 To ALen(laLines, 1) lcLine = laLines[ji]+CRLF Replace expr With expr + lcLine EndFor