'getting the passed 
time
 between two moments

'on the General declarations
Dim STijd,ETijd


'when the 
counter
 has to start

STijd = Time

'when the 
counter
 has to stop

ETijd = Time

'show passed time

MsgBox "Time is slipping away.." & Format(STijd - ETijd,"hh:mm:ss")