About this tutorial:
Video duration: 00:04:45
Code:
Dim msg, pronounce
msg=InputBox(“Enter the text you want to speak :”+vbcrlf,”Text to Audio converter”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(0)
sapi.Speak msg
msgbox(“Your Text has been Spoken: “) + msg
Contact Cony: techiecony@gmail.com
Facebook: www.facebook.com/techiecony