Сообщения

по событию (ну чтение данных с порта по событию) не работают

Увы, я не телепат, чтобы догадаться о причинах проблемы.
Всё зависит от того, как и где вы объявили переменную Ws9013

Если всё объявлено правильно - должно работать.
Пример можете посмотреть в программе для работы с оборудованием через Telnet

В вашем случае объявление переменной должно выглядеть примерно так:

Код Выделить Развернуть

Public WithEvents Ws9013 As Winsock

У вас также доступен список событий объекта?

Всё без проблем работает и из VBA - специально проверил:

Код Выделить Развернуть

Sub test()
    Set ws = CreateObject("MSWinsock.Winsock")
    ws.RemoteHost = "192.168.1.1": ws.RemotePort = 23
    ws.Connect
    Do While (ws.State <> 7): DoEvents: Debug.Print "State = " & ws.State: Loop
    Debug.Print "Connected"
End Sub

Результат:

State = 7
Connected

PS: Странно, что у вас получается работать с динамически созданным WinSock без записи его лицензии в реестр

Функцию не пробовал, но я бы убрал это:
ByVal OfisVersion As Long

Версию можно определить через application.Version,
или, если она зависит от версии файла-источника, - то по расширению файла FilePath$

Хотя я c ADO не дружу - так что могу ошибаться.

Спасибо за поздравления, коллеги.

что то рано мысли такие тебя начали посещать

Осваиваю сайтостроение - изучаю всякие там CSS и PHP
А поскольку на всё сразу времени не хватает, приходится выбирать что-то одно.
Вот я и решил сделать перерыв над работой с Excel, посвятив время изучению других технологий.
Это мы с вами сейчас пишем БД и рисуем формы ввода в Excel - а через пару десятков лет всё будет с веб-интерфейсом,
который кому-то надо будет разрабатывать и реализовывать.

Но и про Excel забывать не буду - всё равно ни дня не удаётся прожить без любимых форумов)