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