MS Agent не говорит. Как заставить?

Public agent As IAgentCtl, anime   As IAgentCtlCharacterEx, agentIsLoaded As Boolean
Public isAgent As Boolean, anime_man As Boolean, WinDir As String

Public Sub Main()    
    Set agent = CreateObject("Agent.Control.2")
    WinDir = String(255, 0)
    j = GetWindowsDirectory(WinDir, 255)
    WinDir = Left$(WinDir, j)
    If Right$(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
    agent.Connected = True
    If ExistFile(WinDir & "msagent\chars\marine.acs") Then
            loadMarine
    ElseIf ExistFile(WinDir & "msagent\chars\merlin.acs") Then
            loadMerlin
    Else
            isAgent = False
    End If
End Sub

Public Sub loadMarine()
    On Error GoTo erMarine
    agent.Characters.Load "agent", WinDir & "msagent\chars\marine.acs"
    anime_man = False
    Set anime = agent.Characters("agent")
    isAgent = True
    anime.LanguageID = &H419
    anime.AutoPopupMenu = False
    anime.TTSModeID = "{06377F80-D48E-11d1-B17B-0020AFED142E}"
    agentIsLoaded = True
    Exit Sub
erMarine:
    isAgent = False
End Sub

Public Sub loadMerlin()
    On Error GoTo erMerlin
    agent.Characters.Load "agent", WinDir & "msagent\chars\merlin.acs"
    anime_man = True
    Set anime = agent.Characters("agent")
    isAgent = True
    anime.LanguageID = &H419
    anime.AutoPopupMenu = False
    anime.TTSModeID = "{06377F81-D48E-11D1-B17B-0020AFED142E}"
    agentIsLoaded = True
    Exit Sub
erMerlin:
    isAgent = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If isAgent Then
        anime.Show True
        anime.Play "Wave"
        waitFor anime.Speak "Желаю удачи"
    End If
End Sub

Public Sub waitFor(r As IAgentCtlRequest)
    Do
        DoEvents
    Loop Until r.Status = 0 Or r.Number = -2147220734
    Set r = Nothing
End Sub