' Converts a numeric value in seconds to a string' Example:' MsgBox SecondsToString(3920) --> 1h.5m.20sFunction SecondsToString(ByVal Seconds As Long) As String SecondsToString = (Seconds 3600) & "h." & ((Seconds 60) Mod 60) & "m." _ & (Seconds Mod 60) & "s." End Function