Need Microsoft Agent samples/code

I have implemented succesfully it in one application.

Here is a module I wrote to use the Agent :

' #VBIDEUtils#************************************************************
' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : waty.thierry@usa.net
' * Date             : 16/10/98
' * Time             : 17:52
' * Module Name      : Agent_Module
' * Module Filename  : Agent.bas
' **********************************************************************
' * Comments         : Functions to handle an Agent
' *
' *
' **********************************************************************

Option Explicit

' *** Agent
Global Character           As IAgentCtlCharacterEx

Private sIddle(8)          As String

Public Sub Agent_Init(MyAgent As Agent, sChar As String, bShow As Boolean)
   ' *** Initialise the agent
   
   On Error GoTo ERROR_Agent_Init
   
   Randomize
   
   Set Character = Nothing
   MyAgent.Characters.Load "CharacterID", sChar
   Set Character = MyAgent.Characters("CharacterID")
   
   ' *** Set the character's language
   Character.LanguageID = &H409

   ' *** Show the character
   If bShow Then Character.Show
   
   sIddle(1) = "Idle1_1"
   sIddle(2) = "Idle1_2"
   sIddle(3) = "Idle1_3"
   sIddle(4) = "Idle1_4"
   sIddle(5) = "Idle2_1"
   sIddle(6) = "Idle2_2"
   sIddle(7) = "Idle3_1"
   sIddle(8) = "Idle3_2"
   
   Exit Sub
   
ERROR_Agent_Init:
   Exit Sub

End Sub

Public Sub Agent_NewsArrive(sNews As String)
   ' *** News arrives
   
   On Error GoTo ERROR_Agent_NewsArrive
   
   Character.Play "Announce"
   Character.Speak sNews
   
   Exit Sub
   
ERROR_Agent_NewsArrive:
   Exit Sub
   
End Sub

Public Sub Agent_Search()
   ' *** Start a search
   
   On Error GoTo ERROR_Search
   
   Character.Stop
   Character.Play "Search"
   
   Exit Sub
   
ERROR_Search:
   Exit Sub
   
End Sub

Public Sub Agent_Searching(sText As String)
   ' *** Start a search
   
   On Error GoTo ERROR_Searching
   
   Character.Play "Searching"
   Character.Speak sText
   
   Exit Sub
   
ERROR_Searching:
   Exit Sub
   
End Sub

Public Sub Agent_SearchFound(sText As String)
   ' *** Start a search
   
   On Error GoTo ERROR_Agent_SearchFound
   
   Character.Play "Pleased"
   Character.Speak sText & "  found"
   
   Exit Sub
   
ERROR_Agent_SearchFound:
   Exit Sub
   
End Sub

Public Sub Agent_SearchNotFound(sText As String)
   ' *** Start a search
   
   On Error GoTo ERROR_Agent_SearchNotFound
   
   Character.Play "Sad"
   Character.Speak sText & " not found"
   
   Exit Sub
   
ERROR_Agent_SearchNotFound:
   Exit Sub
   
End Sub

Public Sub Agent_Read()
   ' *** Start a Read
   
   On Error GoTo ERROR_Read
   
   Character.Play "Read"
   
   Exit Sub
   
ERROR_Read:
   Exit Sub
   
End Sub

Public Sub Agent_Reading(sText As String)
   ' *** Start a Read
   
   On Error GoTo ERROR_Reading
   
   Character.Play "Reading"
   Character.Speak sText
   
   Exit Sub
   
ERROR_Reading:
   Exit Sub
   
End Sub

Public Sub Agent_Iddle()
   ' *** Start an iddle
   
   On Error GoTo ERROR_Iddle
   
   Character.Play sIddle(Int((8 * Rnd) + 1))
   
   Exit Sub
   
ERROR_Iddle:
   Exit Sub
   
End Sub

Public Sub Agent_Query()
   ' *** Start a query
   
   On Error GoTo ERROR_Query
   
   Character.Play "DoMagic1"
   Character.Play "DoMagic2"
 
   Exit Sub
   
ERROR_Query:
   Exit Sub
   
End Sub

Public Sub Agent_Stop()
   ' *** Stop
   
   On Error GoTo ERROR_Stop
   
   Character.Stop
 
   Exit Sub
   
ERROR_Stop:
   Exit Sub

End Sub

Public Sub Agent_Filter(sText As String)
   ' *** Start a filter
   
   On Error GoTo ERROR_Filter
   
   Character.Play "Process"
   
   Exit Sub
   
ERROR_Filter:
   Exit Sub
   
End Sub

Public Sub Agent_Speech(sText As String)
   ' *** Say something
   
   On Error GoTo ERROR_Filter
   
   Character.Play "Suggest"
   Character.Speak sText
   
   Exit Sub
   
ERROR_Filter:
   Exit Sub
   
End Sub