As a user-defined function from Excel. A simple '=FindCode(B2)'