Here is the working code for me...

Code:

Dim sapi,hr,ampm,wish
Set sapi = CreateObject("sapi.spvoice")
if(hour(now)=0)Then
ampm="AM"
end if
if(hour(now)=12)Then
ampm="PM"
end if
if(hour(now)<12)Then ampm="AM" end if
if(hour(now)>12)Then ampm="PM" end if
select case hour(now)
case 0: hr="12"
case 1: hr="1"
case 2: hr="2"
case 3: hr="3"
case 4: hr="4"
case 5: hr="5"
case 6: hr="6"
case 7: hr="7"
case 8: hr="8"
case 9: hr="9"
case 10: hr="10"
case 11: hr="11"
case 12: hr="12"
case 13: hr="1"
case 14: hr="2"
case 15: hr="3"
case 16: hr="4"
case 17: hr="5"
case 18: hr="6"
case 19: hr="7"
case 20: hr="8"
case 21: hr="9"
case 22: hr="10"
case 23: hr="11"
end select
if(hour(now)>=0) and (hour(now)<12)Then wish="Brian,Good Morning" end if
if(hour(now)>=12) and (hour(now)<=17)Then wish="Brian,Good Afternoon" end if
if(hour(now)>=17) and (hour(now)<=23)Then wish="Brian,Good Evening" end if
sapi.Speak wish+". Brian, the time is "+ hr+" "+ampm

It works very good!!!

Now my other question is this.

How could I get this code to speak every 30 minutes?

Example...

Brian,Good morning

Brian,the time is 7:00 am

then 30 minutes later it would run again

Brian,Good morning

Brian,the time is 7:30 am

So on and so forth.

Thank you for your help

Brian