% Function DoWhiteSpace(str) If str <> "" then DoWhiteSpace = (Replace(str, vbCrlf, "")) end if End Function %>