Text to speech won't work [RESOLVED]

[blindlizard]

I am trying to use the MS Agent control to do text-speech. I have downloaded all kinds of crap from microsoft, but cannot get it to talk. And yes I have the speech applet in my control panel. When I do this, the agent just displays the bubble with text in it. How can I get it to talk?

Private WithEvents MsAgent As Agent
'Create a Character Object
Private Joe As IAgentCtlCharacterEx
 
Private Sub Command1_Click()
 
Joe.Speak "I will emphasize \emp\this word."
 
End Sub
 
Private Sub Form_Load()
 
Set MsAgent = New Agent
Set MsAgent = New Agent
 
 
 
'Load the Default Character by not supplying
'an ACS file
MsAgent.Characters.Load "Joe", _
       "e:\vb stuff\agent\e-man.acs"
 
'‘Set the Merlin object to our new character.
Set Joe = MsAgent.Characters("Joe")
 
Joe.Show
End Sub