Function PE_SECTION_TYPE(sectionCode As Integer) As Integer PE_SECTION_TYPE = ((sectionCode) \ 1000) End Function