Access - Reducir tipo de letra mediante codigo

Hola amigos, he preparado una rutina para enviar email con adjuntos y funciona bien pero en el cuerpo del mensaje he incluido dos textos pero quiero que el segundo texto aparezca con tamaño de letra mas pequeño, los textos existen en dos campos del formulario desde donde envio el email.
me podeis ayudar?
el codigo que he utilizado es el siguiente

Dim stDocName, stLinkCriteria As String
Dim DESTINO, ASUNTO, CUERPO As String
Rem CUERPO = Me.CUERPOW & Me.CUERPO2 & Me.CUERPO3 & Me.CUERPO4
CUERPO = Me.textom & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Me.TEXTOM2
DESTINO = Me.EMAIL
stDocName = "S/FACTURA"
ASUNTO = "FRA. No. " & Me.NUMERO
Rem stLinkCriteria = "[EMP_CCC]='" & Me![EMP_CCC] & "'"
Rem DoCmd.OpenReport stDocName, acViewNormal, , stLinkCriteria
DoCmd.OpenReport "S/FACTURA", acViewPreview
DoCmd.SendObject acSendReport, "S/FACTURA", acFormatPDF, DESTINO, , , ASUNTO, CUERPO, False
DoCmd.Close acReport, "S/FACTURA"