Dim lngStartTime, lngEndTime, lngGameTime As Long
lngStartTime = DateTime.Now
'.............
'...... game over
lngEndTime = DateTime.Now + 62000 '... @@@ for example only ! .. add 1m:02sec)
lngGameTime = lngEndTime - lngStartTime
DateTime.TimeFormat = "HH:mm:ss"
Log (DateTime.Time(lngGameTime))