Otra forma de hacerlo sería:
Código:
function CambiarFecha(hora,tipo)
dia = Right("0" & Day(hora), 2)
mes = Right("0" & Month(hora), 2)
if tipo = 1 then 'español
CambiarFecha = dia & "/"& mes & "/" & year(hora) & " " & FormatDateTime(hora,3)
else ' ingles
CambiarFecha = mes & "/"& dia & "/" & year(hora) & " " & FormatDateTime(hora,3)
end if
end function