Dim CurrentTime
Dim a
set a = createobject("sapi.spvoice")
CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
a.speak CurrentTime
Dim Currentdate2
Dim a
set a = createobject("sapi.spvoice")
Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
a.speak Currentdate2