Decode a GS1 Code in MS Access 2019 VBA

We are trying to decode GS1 codes provided on manufacturers on new equipment. We want to store this information in an ms access 2019 database via VBA. We need to be able to input a numeric string and have it decoded according to GS1 Standards. The code is required to be in VBA for MS Access 2019. input is a single string, output data should be in line with these application identifiers the data arrives via scanner without brackets surrounding the application identifiers example: 010012345678901210154565545421991231 we then need to identify the identifiers: (01)00123456789012(10)1545655454(21)991231 Results: 01 GTIN 00123456789012 10 BATCH/LOT 1545655454 21 SERIAL 991231 here is a web based example is below, it is capable of identifying the identifiers and seperating the data accordingly. [login to view URL] These are the GS1 application identifiers we need to be able to identify, there may be others present in the code but we can disregard them. 01 - GTIN 10 - LOT 11 - PROD DATE 21 - SERIAL NUMBER 242 - ADDITIONAL ID 422 - ORIGIN so to confirm, we need to scan a similar code - 010012345678901210154565545421991231, and identify the elements and the appropriate data in VBA, then store/make available the data in individual fields or output variables.