1)Создал DLL

' Copyright © Андрей Михайлов aka MAV
' http://www.erpg.ru
' E-Mail: mav@erpg.ru
' ICQ: 137167406

'Функция возвращает элемент коллекции ObjSet по номеру Number
Public Function EnumerateCollection(ObjSet, Number)
Dim Current As Integer
Current = 0
For Each Obj In ObjSet
If Current = Number Then
Set EnumerateCollection = Obj
Exit Function
End If
Current = Current + 1
Next
End Function

'Функция возвращает количество элементов коллекции ObjSet
Public Function GetCountCollection(ObjSet)
Dim Current As Integer
Current = 0
For Each Obj In ObjSet
Current = Current + 1
Next
GetCountCollection = Current
End Function

'Функция возвращает COM-объект по моникеру или имени файла
Public Function GetCOMObject(Str)
Set GetCOMObject = GetObject(Str)
End Function

2) make ом собрал её


3) зарегестрировал
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "regsvr32 COMServices.dll"


а не работает не фига?
Ошибка загрузки COM-объекта COMServices.
?????????

может что-то еще надо добавить при создании DLL?