' Vorgabe
  Dim sVorgabeVon As String
  Dim sVorgabeBis As String
 
  sVorgabeVon = "06:45"
  sVorgabeBis = "16:15"
 
  ' kleines Zeitintervall
  Dim sZeitVon As String
  Dim sZeitBis As String
 
  sZeitVon = "09:00"
  sZeitBis = "17:15"
 
  ' Vergleich
  If (sZeitVon >= sVorgabeVon And sZeitVon <= sVorgabeBis) _
    And (sZeitBis >= sVorgabeVon And sZeitBis <= sVorgabeBis) Then
 
    ' Kleines Intervall liegt im großen Intervall
    MsgBox "OK"
  End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de