Texto negrita

prueba con:
function Negrita(aNombre)
aNegrita = "<b>" & aNombre & "</b>"
end function


"Fran" escribió en el mensaje
news:226ba01c45cea$d02513d0$
Buenos días tengo el siguiente problemilla, como podría
pasar algunos datos que recibo del formulario al email en
negrita: pongo este código y me falla en: "No coinciden
los tipos" cuando intento aplicar la función
CODIGO:
***********LO QUE QUIERO SACAR EN EL MAIL EN NEGRITA SON
LOS DATOS COMO NOMBRE,APELIDOS, ETC... MUCHAS GRACIAS DE
ANTEMANO...
<%
'DECLARAMOS LAS VARIABLES
Dim
aNombre,Nombre

'///////////////////////////////////////
'FUNCIÓN PARA ENVIAR EL TEXTO EN NEGRITA'
'Sub negrita(aNombre)
'Response.Write "<B>"&aNombre&"</B>"
'End Sub
'///////////////////////////////////////////-->


aNombre = "NOMBRE:"
'aNombre = negrita(aNombre) 'Falla, no coinciden
los tipos en la expresion de criterios.
Nombre = Request.Form("Nombre")

Dim ObjMail
Set ObjMail = Server.CreateObject
("CDONTS.NewMail")

ObjMail.To = ""
ObjMail.From = ""
ObjMail.Subject = "Formulario desde Web -
ciaformacion.com"



ObjMail.Body = aNombre & vbCrLf& _
Nombre


ObjMail.Send
Set ObjMail = Nothing

'REDIRECCIONAMOS A UNA PÁGINA DE
CONFIRMACIÓN DE ENVIO

Response.Redirect "http://www.ciaformacion.com/grac
ias.htm"

%>

Gracias por responderme.