StrText = InputBox("What should Merlin say?", "Make Magic Merlin Talk!")

on Error Resume Next

strAgentName2 = "MERLIN"
strAgentPath2 = "C:\Windows\Msagent\Chars\" & strAgentName2 & ".acs"
Set objAgent2 = CreateObject("Agent.Control.2")

objAgent2.Connected = TRUE
objAgent2.Characters.Load strAgentName2, strAgentPath2
Set objPeter = objAgent2.Characters.Character(strAgentName2)

objPeter.MoveTo 700,300
objPeter.Show

objPeter.Play "GetAttention"
objPeter.Play "GetAttentionReturn"

ObjPeter.Speak StrText

Wscript.Sleep 3000
objVoice.Speakstream objFile

Set objVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate = 1
objVoice.Speak strText

Wscript.Sleep 1000

Set objAction= objPeter.Hide

Do While objPeter.Visible = True
Wscript.Sleep 250
Loop