text to speech with voices in vb.net code example

Example: text to speech vb.net

Dim SAPI As Object
sAPI = CreateObject("SAPI.spvoice")
SAPI.speak(TextBox1.Text)