SecToMin

Dim lSecs As Long
Dim sMin As String
lSecs = 120
sMin = Format(Fix(lSecs / 60), "#0") & ":" & Format(lSecs Mod 60, "00")
MsgBox sMin