Visual Basic.NET - Pasar fecha normal a Juliana

Existe alguna funcion para pasar de fecha normal a juliana y si no es asi que pasos hay que seguir

Gracias

Yo lo hago por diferencia en dias entre el 31/12 del año anterior y la fecha que de la que quiero saber el dia juliano.
asi el dia juliano correspondiente a la fecha del sistema es:

Dim DiaJuliano As String
Dim FechaReferencia As Date = DateAdd(DateInterval.Day, -1, CDate("1/1/" + Today.Year.ToString))
DiaJuliano = Format(DateDiff(DateInterval.Day, FechaReferencia, Today), "000")
espero que te sirva

lo que necesito son los dias, mes y año a fecha juliana ejemplo

23/03/06 -> 2453811

¿Sabes como hacerlo?

Gracias