Set MSComm11 = New MSComm

похоже конец света, Ворд переставил не помогло, Винду переустановил, не помогло, что ещё предпринять кроме смены компьютера???

поясню, ранее эти строки
Dim MSComm11 As MSComm
Set MSComm11 = New MSComm
у меня работали хорошо и дома и на работе, сейчас на работе не работает, система везде ХР, Ворд переустнавливал, Винду тоже не помогло, в данный момент
каким кодом можно выяснить сам факт работоспособности механизма регистрации ActiveX на компьютере, где не удается зарегистрировать определённый ActiveX
Заранее спасибо

чтобы проверить ActiveX жив или мёртв, то есть чтобы можно выяснить сам факт работоспособности механизма регистрации ActiveX на компьютере, где не удается зарегистрировать определённый ActiveX пробую

Declare Function RegMSCOMM32OCX Lib "MSCOMM32.OCX" Alias OCXRegisterServer() As Long
 
Sub тест()
Const ERROR_SUCCESS = 0&
Dim retCode As Long
On Error Resume Next  ' включаем программную обработку ошибок
ChDrive "C:"        ' Устанавливаем нужный
ChDir "C:\WINDOWS\system32"    ' каталог текущим
regCode = RegMSCOMM32.OCX()  ' регистрация MSCOMM32.OCX
' анализ возможных ошибок
If Err <> 0 Then
  MsgBox "Файл MSCOMM32.OCX не найден"
Else
  If regCode <> ERROR_SUCCES Then
    MsgBox "Операция регистрации не выполнена"
End If
End If
End Sub

Но пока выделяет на первой строке часть строки - "OCXRegisterServer"
мне на ум приходит, только то, что в скобках () должны быть всевозможные ByVal, так??
Но я не знаю какие, подскажите пжл как правильно