Extraer todas las mac activas y desactivas para comparar si existe una variable

[Sairox]

buenas tengo el siguiente inconveniente, utilizo el siguiente codigo: (VB2012)

Código:

 Dim colNetAdapters, objWMIService As Object 
 Dim strComputer As String 
 strComputer = "." 
 objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
 colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") 
 For Each objitem In colNetAdapters 
 dac = objitem.MACAddress 
Next

vale el problema existe es en que el codigo solo me muestra las direcciones mac de las tarjetas activas, sucede que requiero que una variable que tengo en mi programa la cual deberia ser una direccion fisica, sea comparada con todas las direcciones fisicas del equipo y si en dado caso una de las direcciones coincide me rellene una variable del codigo, pero no se como adaptar el codigo para que realice la comparacion con todas las tarjetas de red activas y no activas. gracias