Function TInfoVal(Sep as string) as Long
  TInfoVal = Val(Left(TInfo, InStr(TInfo, sep) - 1)) * 60) + (Val(Mid(TInfo, _
    InStr(TInfo, sep) + 1))
End Function
 
Function TimeVal(ByVal I As Long) As String
  Dim TV1 As String
  Dim TV2 As String
  TV1 = Format(I \ 60, "00")
  TV2 = Format(I - ((I \ 60) * 60), "00")
  TimeVal = TV1 + ":" + TV2
End Function

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)