Resultado de una función en formato fecha

Sólo debes agregar después de mandar a poner la fecha la siguiente instrucción:

Selection.NumberFormat = "dd/mm/yyyy"

Richard; 

Ya intenté agregar esa línea al código de mi función y sigue dándome el mismo resultado.

Te comparto el código, pudiera ser que estoy haciendo algo mal.

Gracias, saludos.

Puedes y copiar el código para ayudarte. No mandes la imagen

Function gregoriana(juliana As Long) As Date

Dim siglo As Long
Dim añoAnterior As Long
Dim dia As Long
Dim fechaIniTexto As String
Dim fechaIni As Date
Dim fechaFinal As Date
dia = Right(juliana, 3)
siglo = (Right(juliana, 6) - Right(juliana, 5)) / 100000
If siglo = 1 Then
añoAnterior = ((Right(juliana, 5) - Right(juliana, 3)) / 1000) + (2000 - 1)
Else
añoAnterior = ((Right(juliana, 5) - Right(juliana, 3)) / 1000) + (1900 - 1)
End If
fechaIniTexto = "31/12/" & añoAnterior
fechaIni = CDate(fechaIniTexto)
fechaFinal = fechaIni + dia
gregoriana = CDate(fechaFinal)
Selection.NumberFormat = "dd / mm / yyyy"

End Function

La probé sin otra modificación y a mi me funciona. En todo caso prueba con esto:

gregoriana = Format(CDate(fechaFinal), "dd/mm/yyyy")

Function gregoriana(juliana As Long) As Date
Dim siglo As Long
Dim añoAnterior As Long
Dim dia As Long
Dim fechaIniTexto As String
Dim fechaIni As Date
Dim fechaFinal As Date
dia = Right(juliana, 3)
siglo = (Right(juliana, 6) - Right(juliana, 5)) / 100000
If siglo = 1 Then
    añoAnterior = ((Right(juliana, 5) - Right(juliana, 3)) / 1000) + (2000 - 1)
Else
    añoAnterior = ((Right(juliana, 5) - Right(juliana, 3)) / 1000) + (1900 - 1)
End If
fechaIniTexto = "31/12/" & añoAnterior
fechaIni = CDate(fechaIniTexto)
fechaFinal = fechaIni + dia
gregoriana = Format(CDate(fechaFinal), "dd/mm/yyyy")
End Function