Kan ikke beregne tid

Jeg er i gang med at lave et flextids regnskab hvor jeg har en:
gå hjem tid i celle c5 f.eks    15:15
mødetid i celle c6 f.eks.        6:45
i C7 en udregning i c7=c5-c6      8:30
Frokost                          0:30
en udregning i c9= c7-c8          8:00
en Konstant i c10                7:24

Og so kommer problemet i den næste udregning hvor jeg vil udregne flextiden som =c9-c10

Her får jeg resultatet  00:00 og ikke 0:26

Cellerne er formateret som tid med formatet 13:30.
Indtastningen foregår ved at indtaste tiden uden : og så er der en bagved liggende vba kode der indsætter :.
eks. Jeg indtaster 1515 og resustatet bliver 15:15

Vba koden er denne som jeg fik hjælp til af erikjuul (se tidl. tråd: http://www.eksperten.dk/spm/1006630#reply_8197750)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strTime As String
    With Target
        If .Cells.Count = 1 Then
            If IsNumeric(.Value) Then
                On Error GoTo ErrorOut
                Application.EnableEvents = False
                strTime = Format(Val(.Value), "0000")
                strTime = Left(strTime, Len(strTime) - 2) & ":" & Right(strTime, 2)
                If IsDate(strTime) Then
                    .Value = TimeValue(strTime)
                End If
            End If
        End If
    End With
ErrorOut:
    Application.EnableEvents = True
End Sub

Hvad er det der går galt, når de første beregninger er ok og så pludselig vil den ikke beregne