It will make a character of your choice(many to download) talk.
Original Author: Mike Miller
Inputs
The MS Agent Character
Assumptions
Make Sure you have MS Agent installed and TruVoice, you can get these from Microsoft’s Website at http://msdn.microsoft.com/workshop/imedia/agent/default.asp. This will allow you to make the characters talk. After you got the files, just insert the ms agent active x control and you are on your way. All you got to do then is insert the code and download whatever characters you want to use, for example a cool parrot, a butler, surfmonkey and much more!
Returns
Voice
Code
Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"
Private Sub Form_Load()
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Genie.LanguageID = &H409
TextBox.Text = "Hello World!"
End Sub
Private Sub Button_Click()
Genie.Show
Genie.Speak TextBox.Text
Genie.Hide
End Sub