Dim sapi,ttsmeassage
set sapi = CreateObject("sapi.spvoice")

if hour(now)<12 then
  ttsmessage = "good morning, I'm listening: "
elseif hour(now)<16 then
  ttsmessage = "Hello, I'm listening: "
else
  ttsmessage = "good evening, I'm listening: "
end if

sapi.Speak ttsmessage