Hola, te podrías crear una función como esta:
Código:
Function MañanaTardeNoche(i As Integer) As String
Select Case i
' los valores los cambias a tu gusto
Case 7 To 11
MañanaTardeNoche = "Mañana"
Case 12 To 21
MañanaTardeNoche = "Tarde"
Case Else
MañanaTardeNoche = "Noche"
End Select
End Function
y para llamarla:
Código:
Dim s As String
s = MañanaTardeNoche(Val(Left(Time, 2)))
MsgBox s
Un saludo