Kontrol af dato og klokkeslæt

Jeg har i spørgsmål http://www.eksperten.dk/spm/81321 tidligere givet 100 point til webster for spørgsmålet. Men det viser sig at der er et hul i kontrollen af dato og klokkeslættet.

I dette tilfælde vil resultater blive ledig men skulle gerne blive optaget. Hvorfor ??

Alle andre tilfælde virke kode.

Private Sub Command1_Click()


    start_dato = "25-02-02"
    slut_dato = "26-02-02"

    Ny_Start_Dato = "26-02-02"
    Ny_Slut_Dato = "26-02-02"
   

    start_kl = "15:00"
    slut_kl = "23:00"
   
    Ny_Start_kl = "08:00"
    Ny_Slut_kl = "09:00"
   
    If DateDiff("d", Ny_Slut_Dato, start_dato) > 0 Then
        'Ny dato slutter før de andre starter (ændrer til >= for at få overlap)
        overlap_dato = False
    Else
        If DateDiff("d", slut_dato, Ny_Start_Dato) > 0 Then
            'Ny dato starter efter de andre slutter
            overlap_dato = False
        Else
            'En af de nye datoer overlapper eller starter inden i perioden defineret af de andre variabler. Ændrer > til >= for at overlappe.
            overlap_dato = True
        End If
    End If
    If overlap_dato = False Then

    Else
   
   
    'Datoen er optaget, derfor kontrol på klokken
   
   
   
   

    If DateDiff("h", Ny_Slut_kl, start_kl) > 0 Then
        'Ny dato slutter før de andre starter (ændrer til >= for at få overlap)
        overlap_kl = False
    Else
        If DateDiff("h", slut_kl, Ny_Start_kl) > 0 Then
            'Ny dato starter efter de andre slutter
            overlap_kl = False
        Else
            'En af de nye datoer overlapper eller starter inden i perioden defineret af de andre variabler. Ændrer > til >= for at overlappe.
            overlap_kl = True
           
        End If
    End If
 
 
End If




  If overlap_kl = True Then
 
 
  MsgBox "optaget"
 
  Else
 

 
MsgBox "ledig"
 
 
  End If
 
End Sub