Dim sapi,ttsmeassage
set sapi = CreateObject("sapi.spvoice")
Randomize
myrand = Int((3)*Rnd+1)
if hour(now)<6 then
  ttsmessage = "wow,  you are up early!"
elseif hour(now)<12 then
  if (myrand=1) then
    ttsmessage = "good morning, I'm listening: "
  elseif (myrand=2) then
    ttsmessage = "Hi,  How are you this morning"
  else
    ttsmessage = "Top of the morning too you."
  end if
elseif hour(now)<16 then
    if (myrand=1) then
    ttsmessage = "I'm listening."
  elseif (myrand=2) then
    ttsmessage = "Good after noon sir."
  else
    ttsmessage = "How can I help you today?"
  end if
elseif hour(now)<22 then
  ttsmessage = "good evening, I'm listening: "
else
  ttsmessage = "Isn't it past your bed time?"
end if

sapi.Speak ttsmessage