Çalışmanızı maalesef inceleme imkanim olmadi ama aşağıdaki kod işinize yarayabilir

Function sonuc(Trh As Date) As String

X = CStr(Trh)

BasX = InStr(X, " ") + 1

y = TimeValue(CStr(Mid(X, BasX)))

If y >= TimeValue("16:00:00") Then sonuc = "16/00 var...." Else sonuc = "8/16 vardiyasi"

If y <= TimeValue("08:00:00") Then sonuc = "00:00/08:00 vardiyasi"

If err.number<>0 then  sonuc ="vardiya girilmemis"

End Function

fonksiyon, tarih ve saat arsında sadece boşluk olduğu varsayımına dayanarak tarih ve saat diye 2ye ayırıp işlem yapmaktadır