Public Function THIRD_IPADDRESS (ByVal ipAddress As Long) As Long THIRD_IPADDRESS = Val("&H" & Mid(Right("00000000" & Hex(ipAddress), 8), 5, 2)) End Function
THIRD_IPADDRESS извлекает значение из 32-битного integer, которое соответствует третьему полю ввода в элементе IP address control