Макросы в Excel

Function Get_All_IP_Addresses() As Collection
    ' возвращает коллекцию, содержащую все IP-адреса всех сетевых интерфейсов
   Set Get_All_IP_Addresses = New Collection
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    query = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
    Set colAdapters = objWMIService.ExecQuery(query) ' выполняем запрос

    Dim IPaddr As String: On Error Resume Next
    For Each objAdapter In colAdapters ' перебираем все интерфейсы
       If Not IsNull(objAdapter.IPAddress) Then
            For i = 0 To UBound(objAdapter.IPAddress) ' перебираем все IP адреса
               IPaddr = objAdapter.IPAddress(i)
                If Val(IPaddr) > 0 Then    ' кроме адреса 0.0.0.0
                   ' добавляем в коллекцию только уникальные значения
                   Get_All_IP_Addresses.Add IPaddr, IPaddr
                End If
            Next
        End If
    Next
End Function

Sub ВыводРезультатов_Get_All_IP_Addresses()
    For Each IPaddr In Get_All_IP_Addresses
        txt = txt & IPaddr & vbNewLine
    Next
    MsgBox txt, vbInformation, "Список всех IP адресов"
End Sub