Здравствуйте, maximum28, Вы писали:
M>Спасибо за совет, VinMike.
M>Синтаксис GetObject ([PathName], [Class])
M>В Вашем примере указывается только путь. Если ввести даже правильный путь (например, "C:\WINNT\System32\mci32.ocx"), то появляется сообщение об ошибке:
M>Run-time error '432'
M>File name or class name not found during Automation operation
M>Вопрос: Как определить Class name по имени файла?

Тогда уж дочитывай описание функции до конца. (А заодно и описание ошибки)

Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

When this code is executed, the application associated with the specified pathname is started and the object in the specified file is activated.

....

Note Use the GetObject function when there is a current instance of the object or if you want to create the object with a file already loaded. If there is no current instance, and you don't want the object started with a file loaded, use the CreateObject function.

Кратко: функция загружает экземпляр объекта из файла (например рисунок), при этом для загрузки используются существующие в системе соответствия файлов.
И потом, я, например, не могу представить ситуацию в которой требуется ПРОГРАММНО подгрузить ocx-файл, не зная при этом о нем ничего. Какой в этом смысл?