Lo primero que tenemos que hacer es insertar 1 textbox y 1 button a un formulario.
Luego insertar el siguiente codigo en el botton:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.speak(TextBox1.Text)
End Sub
End Class
