If - Else - End if ....igen

Jeg har nu fået min rutine til at virke vedr. datosammenligning se evt. http://www.eksperten.dk/spm.asp?id=17425

Men nu skal jeg også have rutine til at arbejde med klokkeslæt.
Jeg har prøvet med følgende, men det virker ikke:

Private Sub Command1_Click()


Dim BooketStartDato, BooketSlutDato As Date
Dim NyStartDato, NySlutDato As Date
Dim BooketKlokkenStart, BooketKlokkenSlut, NyKlokkenSlut, NyKlokkenStart As Date

BooketStartDato = "01-05-00"
BooketSlutDato = "01-05-00"
BooketKlokkenStart = "08:00"
BooketKlokkenSlut = "09:00"


NyStartDato = "01-05-00"
NySlutDato = "01-05-00"
NyKlokkenStart = "06:00"
NyKlokkenSlut = "09:00"


BooketStartDato = DateValue(BooketStartDato)
BooketSlutDato = DateValue(BooketSlutDato)


NyStartDato = DateValue(NyStartDato)
NySlutDato = DateValue(NySlutDato)
NyKlokkenStart = DateValue(NyKlokkenStart)
NyKlokkenSlut = DateValue(NyKlokkenSlut)
BooketKlokkenStart = DateValue(BooketKlokkenStart)
BooketKlokkenSlut = DateValue(BooketKlokkenSlut)


If NyStartDato >= BooketStartDato Then
If NyStartDato >= BooketSlutDato Then
If NyKlokkenStart >= BooketKlokkenStart Then
If NyKlokkenSlut >= BooketKlokkenSlut Then


ok = True
Else
ok = False
End If
End If
End If


Else

If NySlutDato <= BooketSlutDato Then
If NyKlokkenSlut <= BooketKlokkenSlut Then


ok = True
Else
ok = False
End If
End If
End If



If ok = True Then
MsgBox ("ledigt")
Else
MsgBox ("optaget")
End If



End Sub

Resultatet bliver at "OK=True", men da lokalet er booket i perioden 1/5-00 kl. 08:00 til kl. 09:00 bør "OK=False" da den nye reservation løber i tidsrummet 06:00 09:00.
Hvad er der galt ????