Function GetMACAddress() As String
Dim sComputer As String
Dim oWMIService As Object
Dim cItems As Object
Dim oItem As Object
Dim myMacAddress As String
sComputer = "."
Set oWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2")
Set cItems = oWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each oItem In cItems
If Not IsNull(oItem.IPAddress) Then myMacAddress = oItem.macAddress
Exit For
Next
'Format MM:MM:MM:SS:SS:SS
MsgBox myMacAddress
GetMACAddress = myMacAddress
End Function