If you like the video then don't forget to like and subscribe..
Here is your code:
speaks="write your message here"
Set speech=CreateObject("sapi.spvoice")
speech.Rate = -3
speech.Speak speaks
Path of the folder to copy:
C:\Users\ {User-Name}\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup and paste the file there.