Para comparar dos fechas y obtener la cantidad de dias, horas, minutos y segundos que han pasado se puede utilizar la función DateDiff que retorna el número de intervalos de tiempo entre dos fechas.
Ejemplo de una función:
[vb]
Function sTiempo(dInicio As Date, dFin As Date) As String
sTiempo = Str((DateDiff("s", dInicio, dFin) \ 86400) Mod 365) & " días, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 3600) Mod 24) & " horas, "
sTiempo = sTiempo & Str((DateDiff("s", dInicio, dFin) \ 60) Mod 60) & " minutos, "
sTiempo = sTiempo & Str(DateDiff("s", dInicio, dFin) Mod 60) & " segundos."
End Function
[/vb]

Esta función calcula la diferencia en segundos de dos fechas y después la ajusta a días, horas, minutos y segundos.

Para utilizar esta función se hace de la siguiente forma:

[vb]
Variable = sTiempo(Text1, Text2)
[/vb]

retornará “1 días, 2 horas, 25 minutos, 32 segundos.”