How to make computer talk at startup HD

This video is made to celebrate the Doomday :D -------- Dim speaks, speech Set speech=CreateObject("sapi.spvoice") speaks="welcome" speech.Speak speaks ------------------------------------------------- Dim speaks, speech Dim d Dim y Dim mo Dim wd d=Day(Now) y=Year(Now) Select Case Weekday(Now) Case 1 wd="Sunday" Case 2 wd="Monday" Case 3 wd="Tuesday" Case 4 wd="Wednesday" Case 5 wd="Thursday" Case 6 wd="Friday" Case 7 wd="Saturday" End Select Select Case Month(Now) Case 1 mo="January" Case 2 mo="February" Case 3 mo="March" Case 4 mo="April" Case 5 mo="May" Case 6 mo="June" Case 7 mo="July" Case 8 mo="August" Case 9 mo="September" Case 10 mo="October" Case 11 mo="November" Case 12 mo="December" End select Set speech=CreateObject("sapi.spvoice") speaks="welcome" speech.Speak speaks speaks="how are you today" speech.Speak speaks speaks="everything is fine" speech.Speak speaks speaks="today is "&wd&" "&mo&" "&d&" "&y speech.Speak speaks speaks="and the time is "&Time speech.Speak speaks