Necesito crear la fecha y hora actual para añadirla en los datos de envío de
los e-mails que la aplicación envía.

Format(Date, "ddd, d, mmm yyyy") & " " & Format(Time, "h:m:s")

Con esta instrucción resulta : vie, 3, dic 2004 23:47:13

Pero necesito que resulte esta otro formato (En Ingles)

Fri, 3 Dec 2004 23:47:13 +0100

¿Es posible?

Gracias