Attribute VB_Name = "Gmodule"
'Public Genie As IAgentCtlCharacter

'Public Sub SpeakIt(strWord As String)
'    Genie.Show
'    Genie.Speak "\map=" + Chr(34) + strWord + Chr(34) + "=" + Chr(34) + "" + Chr(34) + "\"
'End Sub

