Sub Greeting()
Dim GreetTime
Dim strGreetMsg As String, strName As String

GreetTime = Now()
strName = InputBox(\"Please enter your name\")

Select Case Hour(GreetTime)
Case 0 To 5
strGreetMsg = \"You should be sleeping, \" & strName & \"!\"
Case 6 To 11
strGreetMsg = \"Good morning, \" & strName & \"!\"
Case 12 To 18
strGreetMsg = \"Good afternoon, \" & strName & \"!\"
Case Else
strGreetMsg = \"Good evening, \" & strName & \"!\"
End Select

Application.Speech.Speak strGreetMsg

End Sub