Crear función Excel para calcular fechas julianas

Necesito una función que sume a 31/12/del año anterior, los días de una celda.

Quiero decir:

Si el valor de la celda es 32, la función devuelve 01/02/yy

Me estoy peleando con esto del Visual Basic pero no llego... :-(

Tengo esto, pero no funciona.

'DeJuliana es el nombre de la función

'diauno se refiere a 31/12/yy  que lo calculo "date(year(today()), 1,1)-1", que no se si esta bien.

'diasasumar seria el valor de la celda a seleccionar 32

Function DeJuliana(diauno As Date) As Date

   Dim diasasumar As Integer

   diauno = "date(year(today()),1,1)-1"

   DeJuliana = Day(diauno) + Day(diasasumar)

End Function

Seguramente aquí habrá mas barbaridades que en los programas de los políticos, pero me estoy volviendo loco.