Select case Time() ? (1 Viewer)

   iTime = Val(Format(Now(), "hh"))
  
    ' Quit if not a mail item
    If TypeName(Item) <> "MailItem" Then
        Exit Sub
    End If
    
    Select Case iTime
    Case Is < 12
        strGreeting = "morning "
    Case Is < 17
        strGreeting = "afternoon "
    Case Else
        strGreeting = "evening "
    End Select

    strGreeting = "Good " & strGreeting

Select Case True
    Case Time()<#12:00 PM#
        'morning
    Case Time() Between #12:00 PM# And #6:00 PM#
        'afternoon
...and so on
End Select