Ragazzi grazie per le risposte, di seguito il codice che sto usando. La versione di VB è quella presente in Visual Studio 2019.

Dim manc As ManagementClass
Dim mobj As ManagementObject
manc = New ManagementClass("Win32_NetworkAdapterConfiguration ")
Dim mocl As ManagementObjectCollection = manc.GetInstances()
For Each mobj In mocl
If mobj.Item("IPEnabled") = True Then
MsgBox("MAC: " & mobj.Item("MacAddress").ToString())
End If
Next

Se imposto la condizione a "False" mi mostra molti codici e non solo quelli delle schede di rete.

Su google non sono riuscito a trovare molto.

Grazie in anticipo per l'aiuto