hola no creo que necesites una funcion lo podes hacer con cDate()


msgbox CDate("25/06/2009 16:00") < Now

pero bueno una la funcion seria asi



Option Explicit