Mnadar mail con formato

Hola a todos... estoy utilizando el siguiente codigo para mandar mails

Sub Mail_small_Text_Outlook(sMailEnvio As String, sMailCopia As String,
sAsunto As String, sMensaje As String)
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = sMailEnvio
.CC = sMailCopia
.BCC = ""
.Subject = sAsunto
.Body = sMensaje
.Display
.Send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

La duda es la siguiente
Como puedo mandar textos con formato...
Probe mandandole en el string sentencias html, pero no resulta



¿Alguien me puede ayudar?

gracias