Dim SAPI
        SAPI = CreateObject("SAPI.spvoice")

        SAPI.Speak(TextBox1.Text)