Using HTML tags in Excel VBA

Try this,

Const strBR = "<br>"

Msg = "Hello All,<br><br>"
Msg = Msg & vbCr & SubjMsg & "<br>"
Msg = Msg & RangetoHTML(Summary) & "<br>"

or this.

Const strBR = "<br>"

Msg = "Hello All," & strBR & strBR
Msg = Msg & vbCr & SubjMsg & strBR
Msg = Msg & RangetoHTML(Summary) & strBR