tidsberegnng der driller

jeg skal validere om en forsendelse er kommet rettidigt. Det  burde være simpelt, men driller lidt. jeg benytter følgende kode, som er en del af et større sammenhæng.

Sub test1()
Call afvigelse(51)
End Sub

Sub afvigelse(antal_rækker)
Dim a, b, c As Date

    For i = 2 To antal_rækker
        a = Range("L" & i).Value  ' ankomst
        b = Range("H" & i).Value  ' sluttid
        c = Range("G" & i).Value  ' starttid
   
        If a < b And a > c Then 
          Range("m" & i) = 0    ' korrekt levering
        Else
        '  beregn tids afvigelse
        End If
           
    Next

End Sub

først udfordring:
Kolonerne med tider er formateret som timer:min.  Alle forsendelser som kommer rettidig eller efter slut tid registreres korekt, mens dem der ankommer før, bliver registreret som korrekte - hvilket jo ikke er tilfældet.
anden udfordring:
hvordan kan koden der beregner afvigelsen se ud.

ps. regneark med test data kan tilsendes.