Zeitabfrage über Makro

ich habe folgendes Problem. In einem Makro möchte ich abhängig von der aktuellen Uhrzeit eine bestimmte Aktion durchführen.
Ich bin folgendermaßen vorgegangen:

Sub Abfrage()
Dim Schicht As String
Dim t As Double
t = Time
Select Case Hour(t)
Case Is < 14
Schicht = "Früh"
Case Is < 22
Schicht = "Spät"
End Select
Range("A1") = Schicht
End Sub

Das funzt soweit. Aber:
Ich müßte die Abfrage auch mit Minuten haben. ALso
zum Beispiel 12:45 oder 20:45.
Das klappt aber nicht.
Wer kann helfen.

Danke im Vorraus
Heinz