% Function txt2htm(txt) txt2htm = txt txt2htm = Replace(txt2htm, VBCrLf, "" & VBCrLf) End Function %>