a = a.Replace(vbNewLine, " ")