Private Function SecondsToTime(byval dSeconds as Double) _ as String SecondsToTime = Format(DateAdd("s", dSeconds, "00:00:00"), "HH:mm:ss") End Function