Problema con fechas

[luisvasquez]

Código:

' Convierte una fecha a formatoe DD/MM/AAAA
Function FechaGenerica(fecha)
    If IsDate(fecha) = True Then
       DIM dteDay, dteMonth, dteYear
       dia = Day(fecha)
       mes = Month(fecha)
       ano = Year(fecha)
       FechaGenerica = Right(Cstr(dia + 100),2) & "/" & Right(Cstr(mes + 100),2) & "/" & ano
    Else
       FechaGenerica = Null
    End If
End Function