Replace with multiple lines

[timbowman1]

I want to replace multiple lines with whatever is entered into a textbox.
Code:

Text1 = Replace(Text1, "<div id=""bodytext_wide"">" & vbCrLf & _
"" & vbCrLf & _
"<p>CODEHERE</p>" & vbCrLf & _
"<p>CODEHERE</p>" & vbCrLf & _
"<p>CODEHERE</p>" & vbCrLf & _
"<p>CODEHERE</p>" & vbCrLf & _
"<p>CODEHERE</p>" & vbCrLf & _
"<p>" & vbCrLf & _
"</div> ", Text4)

but it doesnt replace....