Sub DateAndTime()
TheDate = Format(Date, "Long Date")
TheTime = Format(time, "Medium Time")
Select Case time
Case Is < 0.5: Greeting = "Good Morning, "
Case Is >= 0.7083: Greeting = "Good Evening, "
Case Else: Greeting = "Good Afternoon, " End Select
MsgBox TheDate & vbCrLf & TheTime, vbOKOnly, Greeting End Sub