Got it, this does the trick, thank again guys
for reference
lne = ------------------------------------------------------
wkr = "With Kind Regards
OrgMsg is Original Message inbound
eDisc is Email Disclaimer paragraph 1
eDisc2 is Email Disclaimer paragraph 2
Code:
strMailIn = Me.txtReply .HTMLBody = Replace(strMailIn, ".", "<br>" & "<br>") & "<br>" & "<br>" & wkr & "<br>" & "<br>" & User & "<br>" & "<br>" & _
lne & lne & "<br>" & "Your Message" & "<br>" & "<br>" & Replace(OrgMsg, Chr(13), "<p>") & "<br>" & lne & lne & "<br>" & "<br>" & _
"<P><IMG border=0 hspace=0 alt='' src='file://T:/Removed on forum/Email Signature.jpg' align=baseline></P>" & "<br>" & _
"<FONT color=#0000CD>" & eDisc & "<br>" & "<FONT color =#0000CD>" & eDisc2