'https://stackoverflow.com/questions/828496/how-to-retrieve-this-computers-ip-address
Function GetIPv4ByMac(MAC)
    Const strComputer As String = "."   ' Computer name. Dot means local computer
    Dim objWMIService, IPConfigSet, IPConfig

    ' Connect to the WMI service
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    ' Get all TCP/IP-enabled network adapters
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
    
    For Each IPConfig In IPConfigSet
        With IPConfig
          If .MACAddress = MAC Then
              GetIPv4ByMac = .IPAddress(0) '.IPAddress(1) = IPv6
          End If
        End With
    Next
End Function