Intervalo de horas

hola

podrias hacer

Dim tarde As DateTime = Convert.ToDateTime("14:00:00")
Dim noche As DateTime = Convert.ToDateTime("20:00:00")

Dim fecha1 As DateTime = Convert.ToDateTime("23:58:00")

If fecha1 > noche  Then
   'es la tarde
Else If fecha1 > tarde Then
   'es de noche
End If

basicamente defines rangoes de horas para validar los limites de cada uno

saludos

Leandro Tuttini

Blog
Buenos Aires
Argentina