Private Function GetShift()
Dim lColor        As Long
Dim sValue        As String
Dim tDate as Date
 
 If CDate(Format(tDate, "hh:nn:ss")) > TimeSerial("06", "00", "00") And _
   CDate(Format(tDate, "hh:nn:ss")) < TimeSerial("14", "00", "00") Then
sValue = "Frühschicht"
lColor = vbYellow
 
 
Label1.Backcolor=IColor
Label1.Text=sValue
 
End Function