VBA for Access Functions to extract data

The mission is to develop functions in visual basic for Access, to allow us to extract data and to convert it in a new structured and clean format. We have a list of phone numbers not really structured, examples: 57 00 72 82/0607777678/0678877783 06 68 92 65 52/B:78 66 06 60 06 78 76 38 28/73 59 33 88 73 58 85 39+ 78 82 05 80/06 60 98 76 36 73 08 07 65/B:55 20 69 88/06 60 79 05 07 (please do not try to call these phone numbers, they are randomly created :-) and we want to get one clean phone number, based on the following rules: - "/" is the separator between several phone numbers - a clean phone number is with only numbers and spaces - the format is 10 numbers, grouped by 2, seperated by 1 space each, like this 12 34 56 78 90 - if the phone number has only 8 numbers, the function must add 01 at the beginning - "B:" or "b:" signify "Office number"; there is 0 or 1 Office phone numbers per line - phone numbers starting by "06" are mobile phone numbers examples: 57 00 72 82 >> 01 57 00 72 82 0607777678 >> 06 07 77 76 78 73 58 85 39+ >> 01 73 58 85 39 We ask you to develop 2 ways of extracting data: 1- one phone number by one 2- like a database structure ******************** Functions for 1- ******************** **** Function ExtractTel(sSource As String, iIndex as Integer) **** ---- input sSource = one of the previous list of unstructured phone numbers iIndex = the index of the phone numbers we want to get, based on the rule that "/" is the separator (index starts à 1) ---- output the phone number based on the previous rules and on the right index example: ---- input sSource = 57 00 72 82/0607777678/0678877783/B:78 66 06 60 ---- output ExtractTel(sSource, 1) = 01 57 00 72 82 ExtractTel(sSource, 2) = 06 07 77 76 78 ExtractTel(sSource, 3) = 06 78 87 77 83 ExtractTel(sSource, 4) = 01 78 66 06 60 ExtractTel(sSource, 5) = null **** Function ExtractOfficeTel(sSource As String) **** ---- input sSource = one of the previous list of unstructured phone numbers ---- output the phone number based on the previous rules and with the tag "b:" or "B:" example: ---- input sSource = 57 00 72 82/0607777678/0678877783/B:78 66 06 60 ---- output ExtractOfficeTel(sSource) = 01 78 66 06 60 example: ---- input sSource = 57 00 72 82/0607777678/0678877783 ---- output ExtractOfficeTel(sSource) = null ******************** Function for 2- ******************** **** Function ExtractTelForDB(sSource As String) **** ---- input sSource = one of the previous list of unstructured phone numbers ---- output a list type csv of cleaned phone numbers, ordered like this: (Office Tel),(Mobile Tel 1),(Mobile Tel 2),(Tel 1),(Tel 2) example: ---- input sSource = 57 00 72 82/0607777678/0678877783/B:78 66 06 60 ---- output ExtractTelForDB(sSource) = 01 78 66 06 60,06 07 77 76 78,06 78 87 77 83,01 57 00 72 82,null example: ---- input sSource = 06 68 92 65 52/B:78 66 06 60 ---- output ExtractTelForDB(sSource) = 01 78 66 06 60,06 68 92 65 52,null,null,null example: ---- input sSource = 78 82 05 80/06 60 98 76 36 ---- output ExtractTelForDB(sSource) = null,06 60 98 76 36,null,01 78 82 05 80,null ******************** Others Functions ******************** You can also create a function to clean phone numbers. ************************************************************* Delivery for milestone = the code of the functions bug free