This is not part of the specification in any way. Desired programming rarely works.
Creates and returns a reference to an Automation object.
CreateObject(servername.typename [, location])
Arguments
server_name
Mandatory. The name of the application that provides the object.
typename
. .
. , .
, , .
GetRef
, .
Set object.eventname = GetRef(procname)
. , .
. , .
procname
. , Sub Function, .