Ok, ok... I know, it isn't the most efficent way to made it.. but it work
Code:
Dim speaks, speech, cTime
Select Case Hour(now)
case 4 cTime = "Good Morning"
case 5 cTime = "Good Morning"
case 6 cTime = "Good Morning"
case 7 cTime = "Good Morning"
case 8 cTime = "Good Morning"
case 9 cTime = "Good Morning"
case 10 cTime = "Good Morning"
case 11 cTime = "Good Morning"
case 12 cTime = "Good Morning"
case 13 cTime = "Good Afternoon"
case 14 cTime = "Good Afternoon"
case 15 cTime = "Good Afternoon"
case 16 cTime = "Good Afternoon"
case 17 cTime = "Good Evening"
case 18 cTime = "Good Evening"
case 19 cTime = "Good Evening"
case 20 cTime = "Good Evening"
case 21 cTime = "Good Evening"
case 22 cTime = "Good Evening"
case 23 cTime = "Good Evening"
case 0 cTime = "Good Night"
case 1 cTime = "Good Night"
case 2 cTime = "Good Night"
case 3 cTime = "Good Night"
End Select
speaks=cTime & "Max"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks