Теперь мы тот же элемент протестируем на VBA дабы убедиться, что все работает и там. Почувствуем повторное использование кода :-) !!!

Запускайте Excel и редактор VBA. Создадим макрос с именем MyTest. В результате у Вас появится модуль - Модуль1, а в нем макрос.

Sub MyTest()

End Sub

Теперь наш элемент нужно подключить к проекту. Делается это через меню Сервис -> Ссылки. Дальше необходимо подключить библиотеку типов. Вот так:

После подключения у нас есть возможность изучить свойства нашего элемента. Выбирайте меню Вид -> Просмотр обьектов. Появится диалоговое окно. В списке выбора выбирите нашу библиотеку ATLTestLib. В окне классов появится наш класс ATLClass. Щелкните на нём два раза и вы увидите функции.

Теперь все готово. Пишем код VBA

Sub MyTest()
	' Объявляем переменную типа наш класс ;-)
	' Мультик помните Девис и Батхен - Типа того :-)
	Dim MyAtl As ATLClass
	' Инициализация
	Set MyAtl = New ATLClass
	' Вызов метода
	MyAtl.ATLMessage
End Sub

Запускайте. И всё будет нормально. Появится сообщение от класса. Как и в предыдущем примере.