Function ReplaceCRLF(sStr As String, Optional sSepar As String = " ") As String ReplaceCRLF = Replace(sStr, vbCrLf, sSepar) End Function