How to make your pc talk to you

Get code:

Dim message,sapi

message=InputBox("What Shall i say","command speak")

Set sapi=CreateObject("sapi.spvoice")



sapi.speak message