Transefeering info from several cells into one sheet.

I have a vba command that transfeer info from several cells into one sheet. No i want to insert a standard text info which is supposed to be transferd in front of the information from the cell, i also want to have new line between each Cell.
This is the command im using:
.Body = Cells(r, 5).Value + Cells(r, 9).Value + Cells(r, 10).Value

Something like this is what i want:
.Body = "Preformatted text" Cells(r, 5).Value "new line" + "preformatted text" Cells(r, 9).Value "new line" + "preformatted text" Cells(r, 10).Value "new line"

Im sure this can be done easy but i need help from you experts. Quick answer will be appreciated
Regards
jevee