MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

SendMessage(MyID,WM_CLOSE, 0&, 0&)

'control.exe — служит для работы с панелью управления
'telephon.cpl — оснастка панели управления для телефонии
'1 — номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
Shell "control.exe telephon.cpl,,1"

'можно и так сразу открывается вторая вкладка
Shell "control.exe modem.cpl"

'MyID - идентификатор процесса
MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

'идентификатор окна, которое рисуется поверх остальных
'нужно декларировать Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Foreground = GetForegroundWindow
'идентификатор активного окна
'нужно декларировать Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Active = GetActiveWindow

SendMessage(Active,WM_CLOSE, 0&, 0&) '- всё равно знак = просит, декларировать нужно?, как?, чему равно WM_CLOSE?

'закрыть окно
'нужно декларировать Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
PostMessage Active, WM_CLOSE, 0&, 0&

 ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long
'
Sub OpenОткрыть_вкладку_модемы()

'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False

  '1
  'control.exe — служит для работы с панелью управления
  'telephon.cpl — оснастка панели управления для телефонии
  '1 — номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
  'Shell "control.exe telephon.cpl,,1"

  '2
  'можно и так сразу открывается вторая вкладка
  'Shell "control.exe modem.cpl"

  '3
  Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus

  'MyID - идентификатор процесса
  'MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

  'закрыть вкладку
  SendMessage GetForegroundWindow, &H10, 0&, 0&

  'отменяем отключенное ранее дёргание экрана при выполнении кода
  Application.ScreenUpdating = True

End Sub

'отключаем дёргание экрана при выполнении кода
  Application.ScreenUpdating = False

'MyID - идентификатор процесса
MyID = Shell("rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus)

'идентификатор окна, которое рисуется поверх остальных
'нужно декларировать Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Foreground = GetForegroundWindow
'идентификатор активного окна
'нужно декларировать Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Active = GetActiveWindow

  SendMessage GetForegroundWindow, &H10, 0&, 0&

...
    Shell "rundll32.exe shell32.dll, Control_RunDLL modem.cpl, Modems", vbNormalFocus
    hwnd = GetForegroundWindow

    hdc = GetDC(hwnd)
    GetWindowRect hwnd, rc
    BitBlt Picture1.hdc, 0, 0, rc.Right - rc.Left, rc.Bottom - rc.Top, hdc, 0, 0, SRCCOPY
    DeleteDC hdc

    SendMessage hwnd, &H10, 0&, 0&
...

    Sub Все_модемы()

    On Error Resume Next

    Dim strComputer As String
    strComputer = "."

    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")

    Dim objItem As Object

    Dim Количество_модемов As Byte
    Dim Результат As String

    Selection.EndKey Unit:=wdStory

    For Each objItem In colItems
        Количество_модемов = Количество_модемов + 1
        
        Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & Chr$(13)

    Next

    MsgBox$ "Количество модемов: " & Количество_модемов & Chr$(13) & Результат

End Sub

    Sub Все_модемы()
 
    On Error Resume Next
 
    Dim strComputer As String
    strComputer = "."
 
    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")
 
    Dim objItem As Object
 
    Dim Количество_модемов As Byte
    Dim Результат As String
    Dim Ответ_модема As String
 
    Selection.EndKey Unit:=wdStory
 
    Dim Comm1 As MSComm
 
    Dim i As Long
 
    For Each objItem In colItems
        'имя порта
        'MsgBox$ objItem.AttachedTo
        'имя порта без первых трёх букв
        'MsgBox$ Right$(objItem.AttachedTo, (Len(objItem.AttachedTo) - 3))
        'назначаем порт скоторым будем работать
        Comm1.CommPort = Right$(objItem.AttachedTo, (Len(objItem.AttachedTo) - 3))
        'делаем установки элемента управления MS Comm
        Comm1.Settings = "9600,N,8,1"
        'используем весь буфер
        Comm1.InputLen = 0
        'открываем порт
        Comm1.PortOpen = True
        'посылаем команду модему
        Comm1.Output = "AT" + Chr$(13)
        'ожидаем возврата данных, задержка тут ламерская, но чисто что бы показать работу
        Do
            i = i + 1
            DoEvents
        Loop Until i = 1000000 Or Comm1.InBufferCount >= 2
        'читаем ответ "ОК" в последовательном порту
        Ответ_модема = Comm1.Input
        'закрываем порт
        Comm1.PortOpen = False
 
        Количество_модемов = Количество_модемов + 1
 
        If Len(Ответ_модема) <> 0 Then
            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - " & Ответ_модема & vbCrLf
        Else
            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Ответ модема не ОК" & vbCrLf
        End If
 
    Next
 
    MsgBox$ "Количество модемов: " & Количество_модемов & vbCrLf & Результат
 
    Selection.TypeText Text:="Количество модемов: " & Количество_модемов & vbCrLf & Результат
 
End Sub

 Sub Все_модемы()

'в случае возникновения ошибки перейти к метке ...
    On Error GoTo Nextt

    Dim strComputer As String
    strComputer = "."

    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")

    Dim objItem As Object

    Dim Количество_модемов As Byte
    Dim NumberPort As String
    Dim Результат As String
    Dim Ответ_модема As String

    Selection.EndKey Unit:=wdStory

    Dim Comm1 As MSComm

    Dim i As Long

    For Each objItem In colItems
        'имя порта
        MsgBox$ objItem.AttachedTo
        'имя порта без первых трёх букв
        MsgBox$ Right$(objItem.AttachedTo, (Len(objItem.AttachedTo) - 3))
        NumberPort = Right$(objItem.AttachedTo, (Len(objItem.AttachedTo) - 3))
        MsgBox$ NumberPort
        'назначаем порт с которым будем работать
        'Функция CLng(Conversion to Long) используется для приведения выражения в тип Long
        Comm1.CommPort = CLng(NumberPort)
        'если преобразовываемый тип данных String,тогда он должен быть числом
        'иначе возникает ошибка стадии выполнения - 13 (Type mismasth)
        'делаем установки элемента управления MS Comm
        Comm1.Settings = "9600,N,8,1"
        'используем весь буфер
        Comm1.InputLen = 0
        'открываем порт
        Comm1.PortOpen = True
        'посылаем команду модему
        Comm1.Output = "AT" + Chr$(13)
        'ожидаем возврата данных, задержка тут ламерская, но чисто что бы показать работу
        Do
            i = i + 1
            DoEvents
        Loop Until i = 1000000 Or Comm1.InBufferCount >= 2
        'читаем ответ "ОК" в последовательном порту
        Ответ_модема = Comm1.Input
        'закрываем порт
        Comm1.PortOpen = False

        Количество_модемов = Количество_модемов + 1

        If Len(Ответ_модема) <> 0 Then
            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - " & Ответ_модема & vbCrLf
        Else
            Результат = Результат & Количество_модемов & " " & objItem.Model & " - " & objItem.AttachedTo & " - Ответ модема не ОК" & vbCrLf
        End If

Nextt:

        If Err.Number <> 0 Then
            MsgBox$ Err.Number & "-" & Err.Description
            Err.Number = 0
            'или Err.Clear - обнуляем ошибку
        End If
    Next

    MsgBox$ "Количество модемов: " & Количество_модемов & vbCrLf & Результат

    Selection.TypeText Text:="Количество модемов: " & Количество_модемов & vbCrLf & Результат

End Sub[//SSRC]

на первом проходе когда СОМ3 на строке
Comm1.CommPort = CLng(NumberPort)
получаю ошибку
91 Object variable or With block variable not set Переменная объекта или переменная блока With не задана
то есть меня заводит в блок
[SRC vba] If Err.Number <> 0 Then
            MsgBox$ Err.Number & "-" & Err.Description
            Err.Number = 0
            'или Err.Clear - обнуляем ошибку
        End If

Sub aaaaaaaaa_модемы()

    Dim objWMIService As Object
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

    Dim colItems As Object
    Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem")

    Dim Comm1 As MSComm

    'назначаем порт с которым будем работать
    Comm1.CommPort = 3 'и здесь ошибка 91 имею ввиду СОМ3 он у меня есть
    '91 Object variable or With block variable not set Переменная объекта или переменная блока With не задана
    'что за ересь????

End Sub