Speach

Public sub Speak(Text)
        Dim SAPI
        SAPI = CreateObject("SAPI.spvoice")
        SAPI.Speak(Text)
End Sub