Dim oAdapters As Object
Dim oAdapter As Object
 
' Fehlerbehandlung aktivieren
On Error Resume Next
 
' alle verfügbaren Netzwerk-Adapter
oAdapters = GetObject("winmgmts:").execquery("SELECT * FROM" & _
  "Win32_NetworkAdapter")
 
' Objekte durchlaufen
For Each oAdapter In oAdapters
    With oAdapter
        'Wenn Netzwerkkarten-Name gleich ist wie Auswahl über ComboBox:
        If (.Description.ToString = Me.combo_network.SelectedItem.ToString) Then
            .Disable()
            .Enable()
        End If
    End With
Next