'Parses format HHH:MM.SS to an integer of seconds
Function PARSETIME(timeStr As String) As Integer
    PARSETIME = 0

    Dim hour As Integer
    Dim min As Integer
    Dim sec As Integer
    Dim timeComp() As String

    If timeStr <> "" Then
        timeComp = Split(timeStr, ":")
        hour = timeComp(0)
        timeComp = Split(timeComp(1), ".")
        min = timeComp(0)
        sec = timeComp(1)

        PARSETIME = sec + 60 * min + 3600 * hour
    End If

End Function