I am using this code
Text1 = Replace(Text2, vbCrLf, vbCrLf & """ & vbNewLine & _")

Instead of getting
codecodecodecode & Vbnewline
i get
&Vbnewline codecodecode