0 / 60 seg.

Dim lSec as long,lMin as long,lHour as long