Intentá así:
ObjFrom= "El Nombre Del Que Manda El Email " & "<
[email protected]>"
claro que si el NOMBRE y el EMAIL salen de una BD o están en una variable o lo que sea, debería quedar más o menos así:
ObjFrom= VariableNOMBRE & " <" & VariableEMAIL & ">"