Public Function CalcSecs(ByVal strMinsAndSecs As String) As Long
Dim intSeconds As Integer
Dim intMins As Integer
intSeconds = Right(strMinsAndSecs, InStr(1, strMinsAndSecs, ":") - 1)
intMins = Left(strMinsAndSecs, InStr(1, strMinsAndSecs, ":") - 1)
CalcSecs = (intMins * 60) + intSeconds
End Function
Please do not feed the trolls.....