Function ConvertTime(ByVal TheTime As Integer)
 
 
        On Error Resume Next
 
        Dim NewTime As String
        Dim Sec As Single
        Dim min As Single
        Dim h As Single
        Dim a As String = ""
 
 
        If TheTime = 60 Then
 
            ConvertTime = "1:00"
 
            Exit Function
 
        End If
 
 
        If TheTime > 60 Then
 
            Sec = TheTime
            min = Sec / 60
            min = Int(min)
            Sec = Sec - min * 60
            h = min / 60
            h = Int(h)
            min = min - h * 60
 
 
            If Sec < 10 Then
 
                a = "0"
 
            End If
 
            ConvertTime = String.Format("{0}:{1}{2}", min, a, Sec)
        End If
 
 
        If TheTime < 60 Then
 
            Sec = TheTime
            min = Sec / 60
            min = Int(min)
            Sec = Sec - min * 60
            h = min / 60
            h = Int(h)
            min = min - h * 60
 
            If Sec < 10 Then
 
                : a = "0"
 
            End If
 
            ConvertTime = String.Format("{0}:{1}{2}", min, a, Sec)
 
        End If
 
    End Function