Public Function TimeBack(ByVal sTime As String) As String
Dim vResult         As Variant, _
    lResult         As Long
 
vResult = Split(sTime, ":")
If UBound(vResult) = 2 Then
    If IsNumeric(vResult(0)) Then lResult = CLng(vResult(0)) * 3600
    If IsNumeric(vResult(1)) Then lResult = lResult + (CLng(vResult(1)) * 60)
    If IsNumeric(vResult(2)) Then lResult = lResult + CLng(vResult(2))
End If
TimeBack = lResult
Set vResult = Nothing
End Function