Hvorfor virker koden ikke

Jeg har 3 felter i min formular; start2, slut2 og skylletid2. Jeg kan skrive eksempelvis 123, 222, 5 og det vises så som 01:23, 02:22, 00:05

Nedenstående kode skal så udfylde felterne start, slut og skylletid. Start og slut skal desuden have en dato på, som tager højde for evt. datoskift, men koden virker ikke. Der stoppes når standarddatoen forsøges sat sammen.

If start2 > 0 And slut2 > 0 And skylletid > 0 Then

    If start2 > slut2 Then 'Datoskift
       
        If Len(Me!start2) < 3 Then
            Me!start = Me!dato - 1 & TimeSerial(0, Me!start2, 0)
        Else
            Me!start = Me!dato - 1 & TimeSerial(Left(Me!start2, Len(Me!start2) - 2), Right(Me!start2, 2), 0)
        End If
       
        If Len(Me!slut2) < 3 Then
            Me!slut = Me!dato & TimeSerial(0, Me!slut2, 0)
        Else
            Me!slut = Me!dato & TimeSerial(Left(Me!slut2, Len(Me!slut2) - 2), Right(Me!slut2, 2), 0)
        End If
       
        If Len(Me!skylletid2) < 3 Then
            Me!skylletid = TimeSerial(0, Me!skylletid2, 0)
        Else
            Me!skylletid = TimeSerial(Left(Me!skylletid2, Len(Me!skylletid2) - 2), Right(Me!skylletid2, 2), 0)
        End If
       
    Else 'Uden datoskift

        If Len(Me!start2) < 3 Then
            Me!start = Me!dato & TimeSerial(0, Me!start2, 0)
        Else
            Me!start = Me!dato & TimeSerial(Left(Me!start2, Len(Me!start2) - 2), Right(Me!start2, 2), 0)
        End If
       
        If Len(Me!slut2) < 3 Then
            Me!slut = Me!dato & TimeSerial(0, Me!slut2, 0)
        Else
            Me!slut = Me!dato & TimeSerial(Left(Me!slut2, Len(Me!slut2) - 2), Right(Me!slut2, 2), 0)
        End If
       
        If Len(Me!skylletid2) < 3 Then
            Me!skylletid = TimeSerial(0, Me!skylletid2, 0)
        Else
            Me!skylletid = TimeSerial(Left(Me!skylletid2, Len(Me!skylletid2) - 2), Right(Me!skylletid2, 2), 0)
        End If

    End If

End If


Hvad er problemet og hvordan løses det.