CampoForm = replace(CampoForm, vbCrLf, "
")

così mi sembra più semplice

Oppure se lo vuoi come tu hai scritto ho notato che manca una parentesi:

testo_finale= testohtml_1 & replace((testo),chr(13)&chr(10),"
") & testohtml_2


------------------------------
...modificato troppo tardi

CIAO