Sub Test_GetIPAddress_UDF()
    MsgBox GetIPAddress
End Sub

Function GetIPAddress()
    Dim objWMIService       As Variant
    Dim ipConfigSet         As Variant
    Dim ipConfig            As Variant
    Dim ipAddress           As Variant
    Dim strIPAddress        As String

    Const strComputer       As String = "."
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
    Set ipConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

    For Each ipConfig In ipConfigSet
        ipAddress = ipConfig.ipAddress
        If Not IsNull(ipAddress) Then strIPAddress = strIPAddress & Join(ipAddress, ", ")
    Next ipConfig

    GetIPAddress = Split(strIPAddress, ",")(0)
End Function