Function PE_SECTION_N(sectionCode) As Integer PE_SECTION_N = (((sectionCode \ 25) Mod 40)) End Function