Varie. Calcolo completo del Codice Fiscale (Parte 09)
		Stampa	Torna Indietro
Linguaggio: Visual Basic	Autore: Gianni Buttà		Data Archiviazione: 14/07/1999

Function Loc8(LC, Pr As String, L As Integer, N As Variant) As String

If LC = Left("MONTELLO", L) And Pr = "BG" Then CD = "F547": CP = "24060": PF = "035"
If LC = Left("MONTELONGO", L) And Pr = "CB" Then CD = "F548": CP = "86040": PF = "0874"
If LC = Left("MONTELPARO", L) And Pr = "AP" Then CD = "F549": CP = "63020": PF = "0734"
If LC = Left("MONTELUPOALBESE", L) And Pr = "CN" Then CD = "F550": CP = "12050": PF = "0173"
If LC = Left("MONTELUPOFIORENTINO", L) And Pr = "FI" Then CD = "F551": CP = "50056": PF = "0571"
If LC = Left("MONTELUPONE", L) And Pr = "MC" Then CD = "F552": CP = "62010": PF = "0733"
If LC = Left("MONTEMAGGIOREALMET", L) And Pr = "PS" Then CD = "F555": CP = "61030": PF = "0721"
If LC = Left("MONTEMAGGIOREBELSIT", L) And Pr = "PA" Then CD = "F553": CP = "90020": PF = "0921"
If LC = Left("MONTEMAGNO", L) And Pr = "AT" Then CD = "F556": CP = "14030": PF = "0141"
If LC = Left("MONTEMALEDICUNEO", L) And Pr = "CN" Then CD = "F558": CP = "12025": PF = "0171"
If LC = Left("MONTEMARANO", L) And Pr = "AV" Then CD = "F559": CP = "83040": PF = "0827"
If LC = Left("MONTEMARCIANO", L) And Pr = "AN" Then CD = "F560": CP = "60018": PF = "071"
If LC = Left("MONTEMARENZO", L) And Pr = "BG" Then CD = "F561": CP = "24030": PF = "035"
If LC = Left("MONTEMARZINO", L) And Pr = "AL" Then CD = "F562": CP = "15050": PF = "0131"
If LC = Left("MONTEMESOLA", L) And Pr = "TA" Then CD = "F563": CP = "74020": PF = "099"
If LC = Left("MONTEMEZZO", L) And Pr = "CO" Then CD = "F564": CP = "22010": PF = "0344"
If LC = Left("MONTEMIGNAIO", L) And Pr = "AR" Then CD = "F565": CP = "52010": PF = "0575"
If LC = Left("MONTEMILETTO", L) And Pr = "AV" Then CD = "F566": CP = "83038": PF = "0825"
If LC = Left("MONTEMILONE", L) And Pr = "PZ" Then CD = "F568": CP = "85020": PF = "0976"
If LC = Left("MONTEMITRO", L) And Pr = "CB" Then CD = "F569": CP = "86030": PF = "0875"
If LC = Left("MONTEMONACO", L) And Pr = "AP" Then CD = "F570": CP = "63048": PF = "0736"
If LC = Left("MONTEMURLO", L) And Pr = "FI" Then CD = "F572": CP = "50045": PF = "0574"
If LC = Left("MONTEMURRO", L) And Pr = "PZ" Then CD = "F573": CP = "85053": PF = "0971"
If LC = Left("MONTENARS", L) And Pr = "UD" Then CD = "F574": CP = "33010": PF = "0433"
If LC = Left("MONTENERODIBISACCI", L) And Pr = "CB" Then CD = "F576": CP = "86036": PF = "0875"
If LC = Left("MONTENERODOMO", L) And Pr = "CH" Then CD = "F578": CP = "66010": PF = "Pretoro"
If LC = Left("MONTENEROSABINO", L) And Pr = "RI" Then CD = "F579": CP = "02040": PF = "0746"
If LC = Left("MONTENEROVALCOCCHI", L) And Pr = "IS" Then CD = "F580": CP = "86080": PF = "0865"
If LC = Left("MONTEODORISIO", L) And Pr = "CH" Then CD = "F582": CP = "66050": PF = "0873"
If LC = Left("MONTEPAONE", L) And Pr = "CZ" Then CD = "F586": CP = "88060": PF = "0967"
If LC = Left("MONTEPARANO", L) And Pr = "TA" Then CD = "F587": CP = "74020": PF = "099"
If LC = Left("MONTEPORZIO", L) And Pr = "PS" Then CD = "F589": CP = "61040": PF = "0722"
If LC = Left("MONTEPORZIOCATONE", L) And Pr = "RM" Then CD = "F590": CP = "00040": PF = "06"
If LC = Left("MONTEPRANDONE", L) And Pr = "AP" Then CD = "F591": CP = "63030": PF = "0736"
If LC = Left("MONTEPULCIANO", L) And Pr = "SI" Then CD = "F592": CP = "53045": PF = "0578"
If LC = Left("MONTERADO", L) And Pr = "AN" Then CD = "F593": CP = "60010": PF = "071"
If LC = Left("MONTERCHI", L) And Pr = "AR" Then CD = "F594": CP = "52035": PF = "0575"
If LC = Left("MONTEREALE", L) And Pr = "AQ" Then CD = "F595": CP = "67015": PF = "0862"
If LC = Left("MONTEREALEVALCELLIN", L) And Pr = "PN" Then CD = "F596": CP = "33086": PF = "0427"
If LC = Left("MONTERENZIO", L) And Pr = "BO" Then CD = "F597": CP = "40050": PF = "0542"
If LC = Left("MONTERIGGIONI", L) And Pr = "SI" Then CD = "F598": CP = "53035": PF = "0577"
If LC = Left("MONTERINALDO", L) And Pr = "AP" Then CD = "F599": CP = "63020": PF = "0734"
If LC = Left("MONTEROBERTO", L) And Pr = "AN" Then CD = "F600": CP = "60030": PF = "0731"
If LC = Left("MONTERODUNI", L) And Pr = "IS" Then CD = "F601": CP = "86075": PF = "0865"
If LC = Left("MONTEROMANO", L) And Pr = "VT" Then CD = "F603": CP = "01010": PF = "06"
If LC = Left("MONTERONIDARBIA", L) And Pr = "SI" Then CD = "F605": CP = "53014": PF = "0577"
If LC = Left("MONTERONIDILECCE", L) And Pr = "LE" Then CD = "F604": CP = "73047": PF = "0832"
If LC = Left("MONTEROSI", L) And Pr = "VT" Then CD = "F606": CP = "01030": PF = "0761"
If LC = Left("MONTEROSSOALMARE", L) And Pr = "SP" Then CD = "F609": CP = "19016": PF = "0187"
If LC = Left("MONTEROSSOALMO", L) And Pr = "RG" Then CD = "F610": CP = "97010": PF = "0932"
If LC = Left("MONTEROSSOCALABRO", L) And Pr = "CZ" Then CD = "F607": CP = "88020": PF = "0968"
If LC = Left("MONTEROSSOGRANA", L) And Pr = "CN" Then CD = "F608": CP = "12020": PF = "0175"
If LC = Left("MONTEROTONDO", L) And Pr = "RM" Then CD = "F611": CP = "00015": PF = "06"
If LC = Left("MONTEROTONDOMARITTI", L) And Pr = "GR" Then CD = "F612": CP = "58025": PF = "0566"
If LC = Left("MONTERUBBIANO", L) And Pr = "AP" Then CD = "F614": CP = "63026": PF = "0734"
If LC = Left("MONTESANBIAGIO", L) And Pr = "LT" Then CD = "F616": CP = "04020": PF = "0771"
If LC = Left("MONTESANGIACOMO", L) And Pr = "SA" Then CD = "F618": CP = "84030": PF = "0975"
If LC = Left("MONTESANGIOVANNIC", L) And Pr = "FR" Then CD = "F620": CP = "03025": PF = "0775"
If LC = Left("MONTESANGIOVANNII", L) And Pr = "RI" Then CD = "F619": CP = "02040": PF = "0746"
If LC = Left("MONTESANGIUSTO", L) And Pr = "MC" Then CD = "F621": CP = "62015": PF = "0733"
If LC = Left("MONTESANMARTINO", L) And Pr = "MC" Then CD = "F622": CP = "62020": PF = "0737"
If LC = Left("MONTESANOSALERTINO", L) And Pr = "LE" Then CD = "F623": CP = "73030": PF = "0836"
If LC = Left("MONTESANOSULLAMARC", L) And Pr = "SA" Then CD = "F625": CP = "84033": PF = "0975"
If LC = Left("MONTESANPIETRANGEL", L) And Pr = "AP" Then CD = "F626": CP = "63010": PF = "0735"
If LC = Left("MONTESANPIETRO", L) And Pr = "BO" Then CD = "F627": CP = "40050": PF = "0542"
If LC = Left("MONTESANSAVINO", L) And Pr = "AR" Then CD = "F628": CP = "52048": PF = "0575"
If LC = Left("MONTESANTAMARIATI", L) And Pr = "PG" Then CD = "F629": CP = "06010": PF = "075"
If LC = Left("MONTESANTANGELO", L) And Pr = "FG" Then CD = "F631": CP = "71037": PF = "0884"
If LC = Left("MONTESANVITO", L) And Pr = "AN" Then CD = "F634": CP = "60037": PF = "071"
If LC = Left("MONTESARCHIO", L) And Pr = "BN" Then CD = "F636": CP = "82016": PF = "0824"
If LC = Left("MONTESCAGLIOSO", L) And Pr = "MT" Then CD = "F637": CP = "75024": PF = "0835"
If LC = Left("MONTESCANO", L) And Pr = "PV" Then CD = "F638": CP = "27040": PF = "0385"
If LC = Left("MONTESCHENO", L) And Pr = "NO" Then CD = "F639": CP = "28030": PF = "0324"
If LC = Left("MONTESCUDAIO", L) And Pr = "PI" Then CD = "F640": CP = "56040": PF = "0588"
If LC = Left("MONTESCUDO", L) And Pr = "FO" Then CD = "F641": CP = "47040": PF = "0541"
If LC = Left("MONTESE", L) And Pr = "MO" Then CD = "F642": CP = "41055": PF = "059"
If LC = Left("MONTESEGALE", L) And Pr = "PV" Then CD = "F644": CP = "27052": PF = "0383"
If LC = Left("MONTESILVANO", L) And Pr = "PE" Then CD = "F646": CP = "65015": PF = "085"
If LC = Left("MONTESPERTOLI", L) And Pr = "FI" Then CD = "F648": CP = "50025": PF = "0571"
If LC = Left("MONTEUDAPO", L) And Pr = "TO" Then CD = "F651": CP = "10020": PF = "011"
If LC = Left("MONTEURANO", L) And Pr = "AP" Then CD = "F653": CP = "63015": PF = "0734"
If LC = Left("MONTEUROERO", L) And Pr = "CN" Then CD = "F654": CP = "12040": PF = "0173"
If LC = Left("MONTEVAGO", L) And Pr = "AG" Then CD = "F655": CP = "92010": PF = "0925"
If LC = Left("MONTEVARCHI", L) And Pr = "AR" Then CD = "F656": CP = "52025": PF = "055"
If LC = Left("MONTEVECCHIA", L) And Pr = "CO" Then CD = "F657": CP = "22050": PF = "039"
If LC = Left("MONTEVEGLIO", L) And Pr = "BO" Then CD = "F659": CP = "40050": PF = "0542"
If LC = Left("MONTEVERDE", L) And Pr = "AV" Then CD = "F660": CP = "83049": PF = "0827"
If LC = Left("MONTEVERDIMARITTIMO", L) And Pr = "PI" Then CD = "F661": CP = "56040": PF = "0588"
If LC = Left("MONTEVIALE", L) And Pr = "VI" Then CD = "F662": CP = "36050": PF = "0444"
If LC = Left("MONTEVIDONCOMBATTE", L) And Pr = "AP" Then CD = "F664": CP = "63020": PF = "0734"
If LC = Left("MONTEVIDONCORRADO", L) And Pr = "AP" Then CD = "F665": CP = "63020": PF = "0734"
If LC = Left("MONTEZEMOLO", L) And Pr = "CN" Then CD = "F666": CP = "12070": PF = "0174"
If LC = Left("MONTI", L) And Pr = "SS" Then CD = "F667": CP = "07020": PF = "0789"
If LC = Left("MONTIANO", L) And Pr = "FO" Then CD = "F668": CP = "47020": PF = "0547"
If LC = Left("MONTICELLIBRUSATI", L) And Pr = "BS" Then CD = "F672": CP = "25040": PF = "0364"
If LC = Left("MONTICELLIDONGINA", L) And Pr = "PC" Then CD = "F671": CP = "29010": PF = "0523"
If LC = Left("MONTICELLIPAVESE", L) And Pr = "PV" Then CD = "F670": CP = "27010": PF = "0384"
If LC = Left("MONTICELLOBRIANZA", L) And Pr = "CO" Then CD = "F674": CP = "22068": PF = "039"
If LC = Left("MONTICELLOCONTEOTT", L) And Pr = "VI" Then CD = "F675": CP = "36010": PF = "0784"
If LC = Left("MONTICELLODALBA", L) And Pr = "CN" Then CD = "F669": CP = "12066": PF = "0173"
If LC = Left("MONTICHIARI", L) And Pr = "BS" Then CD = "F471": CP = "25018": PF = "030"
If LC = Left("MONTICIANO", L) And Pr = "SI" Then CD = "F676": CP = "53015": PF = "0577"
If LC = Left("MONTIERI", L) And Pr = "GR" Then CD = "F677": CP = "58026": PF = "0566"
If LC = Left("MONTIGLIO", L) And Pr = "AT" Then CD = "F678": CP = "14026": PF = "0141"
If LC = Left("MONTIGNOSO", L) And Pr = "MS" Then CD = "F679": CP = "54038": PF = "0585"
If LC = Left("MONTIOVET", L) And Pr = "AO" Then CD = "F367": CP = "11020": PF = "0166"
If LC = Left("MONTIRONE", L) And Pr = "BS" Then CD = "F680": CP = "25010": PF = "0365"
If LC = Left("MONTODINE", L) And Pr = "CR" Then CD = "F681": CP = "26010": PF = "0374"
If LC = Left("MONTOGGIO", L) And Pr = "GE" Then CD = "F682": CP = "16026": PF = "010"
If LC = Left("MONTONE", L) And Pr = "PG" Then CD = "F685": CP = "06014": PF = "075"
If LC = Left("MONTOPOLIDISABINA", L) And Pr = "RI" Then CD = "F687": CP = "02034": PF = "0765"
If LC = Left("MONTOPOLIDIVALDA", L) And Pr = "PI" Then CD = "F686": CP = "56020": PF = "0587"
If LC = Left("MONTORFANO", L) And Pr = "CO" Then CD = "F688": CP = "92030": PF = "0922"
If LC = Left("MONTORIOALVOMANO", L) And Pr = "TE" Then CD = "F690": CP = "64046": PF = "0861"
If LC = Left("MONTORIONEIFRENTAN", L) And Pr = "CB" Then CD = "F689": CP = "86040": PF = "0874"
If LC = Left("MONTORIOROMANO", L) And Pr = "RM" Then CD = "F692": CP = "00010": PF = "06"
If LC = Left("MONTORIOSUPERIORE", L) And Pr = "AV" Then CD = "F694": CP = "83026": PF = "0825"
If LC = Left("MONTOROINFERIORE", L) And Pr = "AV" Then CD = "F693": CP = "83025": PF = "0825"
If LC = Left("MONTORSOVICENTINO", L) And Pr = "VI" Then CD = "F696": CP = "36050": PF = "0444"
If LC = Left("MONTOTTONE", L) And Pr = "AP" Then CD = "F697": CP = "63020": PF = "0734"
If LC = Left("MONTRESTA", L) And Pr = "NU" Then CD = "F698": CP = "08010": PF = "0785"
If LC = Left("MONTUBECCARIA", L) And Pr = "PV" Then CD = "F701": CP = "27040": PF = "0385"
If LC = Left("MONVALLE", L) And Pr = "VA" Then CD = "F703": CP = "21020": PF = "0332"
If LC = Left("MONZA", L) And Pr = "MI" Then CD = "F704": CP = "20052": PF = "039"
If LC = Left("MONZAMBANO", L) And Pr = "MN" Then CD = "F705": CP = "46040": PF = "0376"
If LC = Left("MONZUNO", L) And Pr = "BO" Then CD = "F706": CP = "40036": PF = "051"
If LC = Left("MORANOCALABRO", L) And Pr = "CS" Then CD = "F708": CP = "87016": PF = "0981"
If LC = Left("MORANOSULPO", L) And Pr = "AL" Then CD = "F707": CP = "15025": PF = "0142"
If LC = Left("MORANSENGO", L) And Pr = "AT" Then CD = "F709": CP = "14023": PF = "0141"
If LC = Left("MORARO", L) And Pr = "GO" Then CD = "F710": CP = "34070": PF = "0831"
If LC = Left("MORAZZONE", L) And Pr = "VA" Then CD = "F711": CP = "21040": PF = "0332"
If LC = Left("MORBEGNO", L) And Pr = "SO" Then CD = "F712": CP = "23017": PF = "0342"
If LC = Left("MORBELLO", L) And Pr = "AL" Then CD = "F713": CP = "15010": PF = "019"
If LC = Left("MORCIANODILEUCA", L) And Pr = "LE" Then CD = "F716": CP = "73040": PF = "0836"
If LC = Left("MORCIANODIROMAGNA", L) And Pr = "FO" Then CD = "F715": CP = "47047": PF = "0541"
If LC = Left("MORCONE", L) And Pr = "BN" Then CD = "F717": CP = "82026": PF = "0922"
If LC = Left("MORDANO", L) And Pr = "BO" Then CD = "F718": CP = "40027": PF = "0542"
If LC = Left("MORENGO", L) And Pr = "BG" Then CD = "F720": CP = "24050": PF = "0363"
If LC = Left("MORES", L) And Pr = "SS" Then CD = "F721": CP = "07013": PF = "079"
If LC = Left("MORESCO", L) And Pr = "AP" Then CD = "F722": CP = "63010": PF = "0735"
If LC = Left("MORETTA", L) And Pr = "CN" Then CD = "F723": CP = "12033": PF = "0172"
If LC = Left("MORFASSO", L) And Pr = "PC" Then CD = "F724": CP = "29020": PF = "0523"
If LC = Left("MORGANO", L) And Pr = "TV" Then CD = "F725": CP = "31050": PF = "0438"
If LC = Left("MORGEX", L) And Pr = "AO" Then CD = "F726": CP = "11017": PF = "0165"
If LC = Left("MORGONGIORI", L) And Pr = "OR" Then CD = "F727": CP = "09090": PF = "070"
If LC = Left("MORI", L) And Pr = "TN" Then CD = "F728": CP = "38065": PF = "0464"
If LC = Left("MORIAGODELLABATTAG", L) And Pr = "TV" Then CD = "F729": CP = "31010": PF = "0438"
If LC = Left("MORICONE", L) And Pr = "RM" Then CD = "F730": CP = "00010": PF = "06"
If LC = Left("MORIGERATI", L) And Pr = "SA" Then CD = "F731": CP = "84030": PF = "0975"
If LC = Left("MORIMONDO", L) And Pr = "MI" Then CD = "D033": CP = "20081": PF = "02"
If LC = Left("MORINO", L) And Pr = "AQ" Then CD = "F732": CP = "67050": PF = "0863"
If LC = Left("MORIONDOTORINESE", L) And Pr = "TO" Then CD = "F733": CP = "10020": PF = "011"
If LC = Left("MORLUPO", L) And Pr = "RM" Then CD = "F734": CP = "00067": PF = "06"
If LC = Left("MORMANNO", L) And Pr = "CS" Then CD = "F735": CP = "87026": PF = "0981"
If LC = Left("MORNAGO", L) And Pr = "VA" Then CD = "F736": CP = "21020": PF = "0332"
If LC = Left("MORNESE", L) And Pr = "AL" Then CD = "F737": CP = "15075": PF = "0143"
If LC = Left("MORNICOALSERIO", L) And Pr = "BG" Then CD = "F738": CP = "24050": PF = "0363"
If LC = Left("MORNICOLOSANA", L) And Pr = "PV" Then CD = "F739": CP = "27040": PF = "0385"
If LC = Left("MOROLO", L) And Pr = "FR" Then CD = "F740": CP = "03017": PF = "0775"
If LC = Left("MOROZZO", L) And Pr = "CN" Then CD = "F743": CP = "12040": PF = "0173"
If LC = Left("MORRADESANCTIS", L) And Pr = "AV" Then CD = "F744": CP = "83040": PF = "0827"
If LC = Left("MORRODALBA", L) And Pr = "AN" Then CD = "F745": CP = "60030": PF = "0731"
If LC = Left("MORRODORO", L) And Pr = "TE" Then CD = "F747": CP = "64020": PF = "0861"
If LC = Left("MORRONEDELSANNIO", L) And Pr = "CB" Then CD = "F748": CP = "76040": PF = "0835"
If LC = Left("MORROREATINO", L) And Pr = "RI" Then CD = "F746": CP = "02010": PF = "0746"
If LC = Left("MORROVALLE", L) And Pr = "MC" Then CD = "F749": CP = "62010": PF = "0733"
If LC = Left("MORSANOALTAGLIAMEN", L) And Pr = "PN" Then CD = "F750": CP = "33075": PF = "0434"
If LC = Left("MORSASCO", L) And Pr = "AL" Then CD = "F751": CP = "15010": PF = "019"
If LC = Left("MORTARA", L) And Pr = "PV" Then CD = "F754": CP = "27036": PF = "0384"
If LC = Left("MORTEGLIANO", L) And Pr = "UD" Then CD = "F756": CP = "33050": PF = "0432"
If LC = Left("MORTERONE", L) And Pr = "CO" Then CD = "F758": CP = "22040": PF = "039"
If LC = Left("MORUZZO", L) And Pr = "UD" Then CD = "F760": CP = "33030": PF = "0432"
If LC = Left("MOSCAZZANO", L) And Pr = "CR" Then CD = "F761": CP = "26010": PF = "0374"
If LC = Left("MOSCHIANO", L) And Pr = "AV" Then CD = "F762": CP = "83020": PF = "0825"
If LC = Left("MOSCIANOSANTANGELO", L) And Pr = "TE" Then CD = "F764": CP = "64023": PF = "085"
If LC = Left("MOSCUFO", L) And Pr = "OE" Then CD = "F765": CP = "65010": PF = "085"
If LC = Left("MOSOINPASSIRIA", L) And Pr = "BZ" Then CD = "F766": CP = "39013": PF = "0473"
If LC = Left("MOSSA", L) And Pr = "GO" Then CD = "F767": CP = "34070": PF = "0831"
If LC = Left("MOSSANO", L) And Pr = "VI" Then CD = "F768": CP = "36020": PF = "0444"
If LC = Left("MOSSOSANTAMARIA", L) And Pr = "VC" Then CD = "F769": CP = "13054": PF = "015"
If LC = Left("MOTTABALUFFI", L) And Pr = "CR" Then CD = "F771": CP = "26045": PF = "0375"
If LC = Left("MOTTACAMASTRA", L) And Pr = "ME" Then CD = "F772": CP = "98030": PF = "095"
If LC = Left("MOTTADAFFERMO", L) And Pr = "ME" Then CD = "F773": CP = "98070": PF = "0941"
If LC = Left("MOTTADECONTI", L) And Pr = "VC" Then CD = "F774": CP = "13010": PF = "0163"
If LC = Left("MOTTADILIVENZA", L) And Pr = "TV" Then CD = "F770": CP = "31045": PF = "0422"
If LC = Left("MOTTAFOLLONE", L) And Pr = "CS" Then CD = "F775": CP = "87010": PF = "0984"
If LC = Left("MOTTALCIATA", L) And Pr = "VC" Then CD = "F776": CP = "13030": PF = "0161"
If LC = Left("MOTTAMONTECORVINO", L) And Pr = "FG" Then CD = "F777": CP = "71030": PF = "0884"
If LC = Left("MOTTASANGIOVANNI", L) And Pr = "RC" Then CD = "F779": CP = "89065": PF = "0965"
If LC = Left("MOTTASANTAANASTASI", L) And Pr = "CT" Then CD = "F781": CP = "75040": PF = "0835"
If LC = Left("MOTTASANTALUCIA", L) And Pr = "CZ" Then CD = "F780": CP = "88040": PF = "0968"
If LC = Left("MOTTAVISCONTI", L) And Pr = "MI" Then CD = "F783": CP = "20086": PF = "02"
If LC = Left("MOTTEGGIANA", L) And Pr = "MN" Then CD = "B012": CP = "46020": PF = "0386"
If LC = Left("MOTTOLA", L) And Pr = "TA" Then CD = "F784": CP = "74017": PF = "099"
If LC = Left("MOZAMBICO", L) And Pr = "EE" Then CD = "Z333": CP = "": PF = ""
If LC = Left("MOZZAGROGNA", L) And Pr = "CH" Then CD = "F785": CP = "66030": PF = "0872"
If LC = Left("MOZZANICA", L) And Pr = "BG" Then CD = "F786": CP = "24050": PF = "0363"
If LC = Left("MOZZATE", L) And Pr = "CO" Then CD = "F788": CP = "22076": PF = "0331"
If LC = Left("MOZZECANE", L) And Pr = "VR" Then CD = "F789": CP = "37060": PF = "045"
If LC = Left("MOZZO", L) And Pr = "BG" Then CD = "F791": CP = "24035": PF = "035"
If LC = Left("MUCCIA", L) And Pr = "MC" Then CD = "F793": CP = "62034": PF = "0737"
If LC = Left("MUGGIA", L) And Pr = "TS" Then CD = "F794": CP = "34015": PF = "040"
If LC = Left("MUGGIO", L) And Pr = "MI" Then CD = "F797": CP = "20053": PF = "039"
If LC = Left("MUGNANODELCARDINAL", L) And Pr = "AV" Then CD = "F798": CP = "83027": PF = "081"
If LC = Left("MUGNANODINAPOLI", L) And Pr = "NA" Then CD = "F799": CP = "80018": PF = "081"
If LC = Left("MULAZZANO", L) And Pr = "MI" Then CD = "F801": CP = "20060": PF = "0984"
If LC = Left("MULAZZO", L) And Pr = "MS" Then CD = "F802": CP = "54026": PF = "0187"
If LC = Left("MURA", L) And Pr = "BS" Then CD = "F806": CP = "25070": PF = "0365"
If LC = Left("MURAVERA", L) And Pr = "CA" Then CD = "F808": CP = "09043": PF = "070"
If LC = Left("MURAZZANO", L) And Pr = "CN" Then CD = "F809": CP = "12060": PF = "Rivalta"
If LC = Left("MURELLO", L) And Pr = "CN" Then CD = "F811": CP = "12030": PF = "0175"
If LC = Left("MURIALDO", L) And Pr = "SV" Then CD = "F813": CP = "17010": PF = "019"
If LC = Left("MURISENGO", L) And Pr = "AL" Then CD = "F814": CP = "15020": PF = "0142"
If LC = Left("MURLO", L) And Pr = "SI" Then CD = "F815": CP = "53016": PF = "0577"
If LC = Left("MUROLECCESE", L) And Pr = "LE" Then CD = "F816": CP = "73036": PF = "0836"
If LC = Left("MUROLUCANO", L) And Pr = "PZ" Then CD = "F817": CP = "85054": PF = "0976"
If LC = Left("MUROS", L) And Pr = "SS" Then CD = "F818": CP = "07030": PF = "079"
If LC = Left("MUSCOLINE", L) And Pr = "BS" Then CD = "F820": CP = "25080": PF = "0365"
If LC = Left("MUSEI", L) And Pr = "CA" Then CD = "F822": CP = "09010": PF = "070"
If LC = Left("MUSILEDIPIAVE", L) And Pr = "VE" Then CD = "F826": CP = "30024": PF = "0421"
If LC = Left("MUSSO", L) And Pr = "CO" Then CD = "F828": CP = "22010": PF = "0344"
If LC = Left("MUSSOLENTE", L) And Pr = "VI" Then CD = "F829": CP = "36065": PF = "0424"
If LC = Left("MUSSOMELI", L) And Pr = "CL" Then CD = "F830": CP = "93014": PF = "0934"
If LC = Left("MUZZANADELTURGNANO", L) And Pr = "UD" Then CD = "F832": CP = "33055": PF = "0431"
If LC = Left("MUZZANO", L) And Pr = "VC" Then CD = "F833": CP = "13050": PF = "015"
If LC = Left("NAGOTORBOLE", L) And Pr = "TN" Then CD = "F835": CP = "38060": PF = "0464"
If LC = Left("NALLES", L) And Pr = "BZ" Then CD = "F836": CP = "39010": PF = "0473"
If LC = Left("NANNO", L) And Pr = "TN" Then CD = "F837": CP = "38010": PF = "0471"
If LC = Left("NANTO", L) And Pr = "VI" Then CD = "F838": CP = "36024": PF = "0444"
If LC = Left("NAPOLI", L) And Pr = "NA" Then CD = "F839": CP = "80100": PF = "081"
If LC = Left("NARBOLIA", L) And Pr = "OR" Then CD = "F840": CP = "09070": PF = "0758"
If LC = Left("NARCAO", L) And Pr = "CA" Then CD = "F841": CP = "09010": PF = "070"
If LC = Left("NARDO", L) And Pr = "LE" Then CD = "F842": CP = "73048": PF = "0833"
If LC = Left("NARDODIPACE", L) And Pr = "CZ" Then CD = "F843": CP = "88020": PF = "0968"
If LC = Left("NARNI", L) And Pr = "TR" Then CD = "F844": CP = "05035": PF = "0744"
If LC = Left("NARO", L) And Pr = "AG" Then CD = "F845": CP = "92028": PF = "0922"
If LC = Left("NARZOLE", L) And Pr = "CN" Then CD = "F846": CP = "12068": PF = "0173"
If LC = Left("NASINO", L) And Pr = "SV" Then CD = "F847": CP = "17030": PF = "0182"
If LC = Left("NASO", L) And Pr = "ME" Then CD = "F848": CP = "98074": PF = "0941"
If LC = Left("NATURNO", L) And Pr = "BZ" Then CD = "F849": CP = "39025": PF = "0473"
If LC = Left("NAVE", L) And Pr = "BS" Then CD = "F851": CP = "25075": PF = "030"
If LC = Left("NAVELLI", L) And Pr = "AQ" Then CD = "F852": CP = "67020": PF = "0864"
If LC = Left("NAVESANROCCO", L) And Pr = "TN" Then CD = "F853": CP = "38010": PF = "0471"
If LC = Left("NAZSCIAVES", L) And Pr = "BZ" Then CD = "F856": CP = "39040": PF = "0472"
If LC = Left("NAZZANO", L) And Pr = "RM" Then CD = "F857": CP = "00060": PF = "06"
If LC = Left("NE", L) And Pr = "GE" Then CD = "F858": CP = "16040": PF = "0185"
If LC = Left("NEBBIUNO", L) And Pr = "NO" Then CD = "F859": CP = "28010": PF = "0323"
If LC = Left("NEGRAR", L) And Pr = "VR" Then CD = "F861": CP = "37024": PF = "045"
If LC = Left("NEIRONE", L) And Pr = "GE" Then CD = "F862": CP = "16040": PF = "0185"
If LC = Left("NEIVE", L) And Pr = "CN" Then CD = "F863": CP = "12057": PF = "0173"
If LC = Left("NEMBRO", L) And Pr = "BG" Then CD = "F864": CP = "24027": PF = "035"
If LC = Left("NEMI", L) And Pr = "RM" Then CD = "F865": CP = "00040": PF = "06"
If LC = Left("NEMOLI", L) And Pr = "PZ" Then CD = "F866": CP = "85040": PF = "0975"
If LC = Left("NEONELI", L) And Pr = "OR" Then CD = "F867": CP = "09080": PF = "0783"
If LC = Left("NEPAL", L) And Pr = "EE" Then CD = "Z234": CP = "": PF = ""
If LC = Left("NEPI", L) And Pr = "VT" Then CD = "F868": CP = "01036": PF = "0761"
If LC = Left("NERETO", L) And Pr = "TE" Then CD = "F870": CP = "64015": PF = "0861"
If LC = Left("NEROLA", L) And Pr = "RM" Then CD = "F871": CP = "00017": PF = "0774"
If LC = Left("NERVESADELLABATTAG", L) And Pr = "TV" Then CD = "F872": CP = "31040": PF = "0432"
If LC = Left("NERVIANO", L) And Pr = "MI" Then CD = "F874": CP = "20014": PF = "0331"
If LC = Left("NESPOLO", L) And Pr = "RI" Then CD = "F876": CP = "02020": PF = "0765"
If LC = Left("NESSO", L) And Pr = "CO" Then CD = "F877": CP = "22020": PF = "0384"
If LC = Left("NETRO", L) And Pr = "VC" Then CD = "F878": CP = "13050": PF = "015"
If LC = Left("NETTUNO", L) And Pr = "RM" Then CD = "F880": CP = "00048": PF = "06"
If LC = Left("NEVIANO", L) And Pr = "LE" Then CD = "F881": CP = "73040": PF = "0836"
If LC = Left("NEVIANODEGLIARDUIN", L) And Pr = "PR" Then CD = "F882": CP = "43024": PF = "0521"
If LC = Left("NEVIGLIE", L) And Pr = "CN" Then CD = "F883": CP = "12050": PF = "0173"
If LC = Left("NIARDO", L) And Pr = "BS" Then CD = "F884": CP = "25050": PF = "0364"
If LC = Left("NIBBIANO", L) And Pr = "PC" Then CD = "F885": CP = "29010": PF = "0523"
If LC = Left("NIBBIOLA", L) And Pr = "NO" Then CD = "F886": CP = "28070": PF = "0321"
If LC = Left("NIBIONNO", L) And Pr = "CO" Then CD = "F887": CP = "22060": PF = "039"
If LC = Left("NICARAGUA", L) And Pr = "EE" Then CD = "Z515": CP = "": PF = ""
If LC = Left("NICHELINO", L) And Pr = "TO" Then CD = "F889": CP = "10042": PF = "011"
If LC = Left("NICOLOSI", L) And Pr = "CT" Then CD = "F890": CP = "95030": PF = "0965"
If LC = Left("NICORVO", L) And Pr = "PV" Then CD = "F891": CP = "27020": PF = "0384"
If LC = Left("NICOSIA", L) And Pr = "EN" Then CD = "F892": CP = "94014": PF = "0935"
If LC = Left("NICOTERA", L) And Pr = "CZ" Then CD = "F893": CP = "88034": PF = "0963"
If LC = Left("NIELLABELBO", L) And Pr = "CN" Then CD = "F894": CP = "12050": PF = "0173"
If LC = Left("NIELLATANARO", L) And Pr = "CN" Then CD = "F895": CP = "12060": PF = "Rivalta"
If LC = Left("NIGER", L) And Pr = "EE" Then CD = "Z334": CP = "": PF = ""
If LC = Left("NIGERIA", L) And Pr = "EE" Then CD = "Z335": CP = "": PF = ""
If LC = Left("NIMIS", L) And Pr = "UD" Then CD = "F898": CP = "33045": PF = "0432"
If LC = Left("NISCEMI", L) And Pr = "CL" Then CD = "F889": CP = "93015": PF = "0933"
If LC = Left("NISSORIA", L) And Pr = "EN" Then CD = "F900": CP = "94010": PF = "0935"
If LC = Left("NIZZADISICILIA", L) And Pr = "ME" Then CD = "F901": CP = "98026": PF = "0942"
If LC = Left("NIZZAMONFERRATO", L) And Pr = "AT" Then CD = "F902": CP = "14049": PF = "0141"
If LC = Left("NOALE", L) And Pr = "VE" Then CD = "F904": CP = "30033": PF = "041"
If LC = Left("NOASCA", L) And Pr = "TO" Then CD = "F906": CP = "10080": PF = "011"
If LC = Left("NOCARA", L) And Pr = "CS" Then CD = "F907": CP = "87070": PF = "0981"
If LC = Left("NOCCIANO", L) And Pr = "PE" Then CD = "F908": CP = "65010": PF = "085"
If LC = Left("NOCERAINFERIORE", L) And Pr = "SA" Then CD = "F912": CP = "84014": PF = "081"
If LC = Left("NOCERASUPERIORE", L) And Pr = "SA" Then CD = "F913": CP = "84015": PF = "081"
If LC = Left("NOCERATIRINESE", L) And Pr = "CZ" Then CD = "F910": CP = "88047": PF = "0968"
If LC = Left("NOCERAUMBRA", L) And Pr = "PG" Then CD = "F911": CP = "06025": PF = "0742"
If LC = Left("NOCETO", L) And Pr = "PR" Then CD = "F914": CP = "43015": PF = "0521"
If LC = Left("NOCI", L) And Pr = "BA" Then CD = "F915": CP = "70015": PF = "080"
If LC = Left("NOCIGLIA", L) And Pr = "LE" Then CD = "F916": CP = "73020": PF = "0836"
If LC = Left("NOEPOLI", L) And Pr = "PZ" Then CD = "F917": CP = "85035": PF = "0973"
If LC = Left("NOGARA", L) And Pr = "VR" Then CD = "F918": CP = "37054": PF = "0442"
If LC = Left("NOGAREDO", L) And Pr = "TN" Then CD = "F920": CP = "38060": PF = "0464"
If LC = Left("NOGAROLEROCCA", L) And Pr = "VR" Then CD = "F921": CP = "37060": PF = "045"
If LC = Left("NOGAROLEVICENTINO", L) And Pr = "VI" Then CD = "F922": CP = "36070": PF = "0445"
If LC = Left("NOICATTARO", L) And Pr = "BA" Then CD = "F923": CP = "70016": PF = "080"
If LC = Left("NOLA", L) And Pr = "NA" Then CD = "F924": CP = "80035": PF = "081"
If LC = Left("NOLE", L) And Pr = "TO" Then CD = "F925": CP = "10076": PF = "011"
If LC = Left("NOLI", L) And Pr = "SV" Then CD = "F926": CP = "17026": PF = "019"
If LC = Left("NOMAGLIO", L) And Pr = "TO" Then CD = "F927": CP = "10010": PF = "011"
If LC = Left("NOMI", L) And Pr = "TN" Then CD = "F929": CP = "38060": PF = "0464"
If LC = Left("NONANTOLA", L) And Pr = "MO" Then CD = "F930": CP = "41015": PF = "059"
If LC = Left("NONE", L) And Pr = "TO" Then CD = "F931": CP = "10060": PF = "011"
If LC = Left("NONIO", L) And Pr = "NO" Then CD = "F932": CP = "28010": PF = "0323"
If LC = Left("NORAGUGUME", L) And Pr = "NU" Then CD = "F933": CP = "08010": PF = "0785"
If LC = Left("NORBELLO", L) And Pr = "OR" Then CD = "F934": CP = "09070": PF = "0758"
If LC = Left("NORCIA", L) And Pr = "PG" Then CD = "F935": CP = "06046": PF = "0743"
If LC = Left("NORMA", L) And Pr = "LT" Then CD = "F937": CP = "04010": PF = "06"
If LC = Left("NORVEGIA", L) And Pr = "EE" Then CD = "Z125": CP = "": PF = ""
If LC = Left("NOSATE", L) And Pr = "MI" Then CD = "F939": CP = "20020": PF = "0331"
If LC = Left("NOTARESCO", L) And Pr = "TE" Then CD = "F942": CP = "64024": PF = "085"
If LC = Left("NOTO", L) And Pr = "SR" Then CD = "F943": CP = "96017": PF = "0931"
If LC = Left("NOVAFELTRIA", L) And Pr = "PS" Then CD = "F137": CP = "61015": PF = "0541"
If LC = Left("NOVALEDO", L) And Pr = "TN" Then CD = "F947": CP = "38050": PF = "0461"
If LC = Left("NOVALESA", L) And Pr = "TO" Then CD = "F948": CP = "10050": PF = "011"
If LC = Left("NOVALEVANTE", L) And Pr = "BZ" Then CD = "F949": CP = "39056": PF = "0471"
If LC = Left("NOVAMILANESE", L) And Pr = "MI" Then CD = "F944": CP = "20054": PF = "02"
If LC = Left("NOVAPONENTE", L) And Pr = "BZ" Then CD = "F950": CP = "39050": PF = "0471"
If LC = Left("NOVARA", L) And Pr = "NO" Then CD = "F952": CP = "28100": PF = "0321"
If LC = Left("NOVARADISICILIA", L) And Pr = "ME" Then CD = "F951": CP = "98058": PF = "0941"
If LC = Left("NOVASIRI", L) And Pr = "MT" Then CD = "A942": CP = "75020": PF = "0835"
If LC = Left("NOVATEMEZZOLA", L) And Pr = "SO" Then CD = "F956": CP = "23025": PF = "0343"
If LC = Left("NOVATEMILANESE", L) And Pr = "MI" Then CD = "F955": CP = "20026": PF = "02"
If LC = Left("NOVE", L) And Pr = "VI" Then CD = "F957": CP = "36055": PF = "0424"
If LC = Left("NOVEDRATE", L) And Pr = "CO" Then CD = "F958": CP = "22060": PF = "039"
If LC = Left("NOVELLARA", L) And Pr = "RE" Then CD = "F960": CP = "42017": PF = "0522"
If LC = Left("NOVELLO", L) And Pr = "CN" Then CD = "F961": CP = "12060": PF = "Rivalta"
If LC = Left("NOVENTADIPIAVE", L) And Pr = "VE" Then CD = "F963": CP = "30020": PF = "091"
If LC = Left("NOVENTAPADOVANA", L) And Pr = "PD" Then CD = "F962": CP = "35027": PF = "049"
If LC = Left("NOVENTAVICENTINA", L) And Pr = "VI" Then CD = "F964": CP = "36025": PF = "0444"
If LC = Left("NOVIDIMODENA", L) And Pr = "MO" Then CD = "F966": CP = "41016": PF = "059"
If LC = Left("NOVIGLIO", L) And Pr = "MI" Then CD = "F968": CP = "20082": PF = "02"
If LC = Left("NOVILIGURE", L) And Pr = "AL" Then CD = "F965": CP = "15067": PF = "0143"
If LC = Left("NOVIVELIA", L) And Pr = "SA" Then CD = "F967": CP = "84060": PF = "0974"
If LC = Left("NOVOLI", L) And Pr = "LE" Then CD = "F970": CP = "73051": PF = "0832"
If LC = Left("NUCETTO", L) And Pr = "CN" Then CD = "F972": CP = "12070": PF = "0174"
If LC = Left("NUGHEDUDISANNICOL", L) And Pr = "SS" Then CD = "F975": CP = "07010": PF = "079"
If LC = Left("NUGHEDUSANTAVITTOR", L) And Pr = "OR" Then CD = "F974": CP = "09080": PF = "0783"
If LC = Left("NULE", L) And Pr = "SS" Then CD = "F976": CP = "07010": PF = "079"
If LC = Left("NULVI", L) And Pr = "SS" Then CD = "F977": CP = "07032": PF = "079"
If LC = Left("NUMANA", L) And Pr = "AN" Then CD = "F978": CP = "60026": PF = "071"
If LC = Left("NUORO", L) And Pr = "NU" Then CD = "F979": CP = "08100": PF = "0784"
If LC = Left("NUOVACALEDONIA", L) And Pr = "EE" Then CD = "Z716": CP = "": PF = ""
If LC = Left("NUOVAGUINEA", L) And Pr = "EE" Then CD = "Z718": CP = "": PF = ""
If LC = Left("NUOVAZELANDA", L) And Pr = "EE" Then CD = "Z719": CP = "": PF = ""
If LC = Left("NUOVEEBRIDI", L) And Pr = "EE" Then CD = "Z717": CP = "": PF = ""
If LC = Left("NURACHI", L) And Pr = "OR" Then CD = "F980": CP = "09070": PF = "0758"
If LC = Left("NURAGUS", L) And Pr = "NU" Then CD = "F981": CP = "08030": PF = "0782"
If LC = Left("NURALLAO", L) And Pr = "NU" Then CD = "F982": CP = "08030": PF = "0782"
If LC = Left("NURAMINIS", L) And Pr = "CA" Then CD = "F983": CP = "09024": PF = "070"
If LC = Left("NURECI", L) And Pr = "OR" Then CD = "F985": CP = "09080": PF = "0783"
If LC = Left("NURRI", L) And Pr = "NU" Then CD = "F986": CP = "08035": PF = "0782"
If LC = Left("NUS", L) And Pr = "AO" Then CD = "F987": CP = "11020": PF = "0166"
If LC = Left("NUSCO", L) And Pr = "AV" Then CD = "F988": CP = "83051": PF = "0827"
If LC = Left("NUVOLENTO", L) And Pr = "BS" Then CD = "F989": CP = "25080": PF = "0365"
If LC = Left("NUVOLERA", L) And Pr = "BS" Then CD = "F990": CP = "25080": PF = "0365"
If LC = Left("NUXIS", L) And Pr = "CA" Then CD = "F991": CP = "09010": PF = "070"
If LC = Left("OCCHIEPPOINFERIORE", L) And Pr = "VC" Then CD = "F992": CP = "13055": PF = "015"
If LC = Left("OCCHIEPPOSUPERIORE", L) And Pr = "VC" Then CD = "F993": CP = "13056": PF = "015"
If LC = Left("OCCHIOBELLO", L) And Pr = "RO" Then CD = "F994": CP = "45030": PF = "0425"
If LC = Left("OCCIMIANO", L) And Pr = "AL" Then CD = "F995": CP = "15040": PF = "0142"
If LC = Left("OCRE", L) And Pr = "AQ" Then CD = "F996": CP = "67040": PF = "0863"
If LC = Left("ODALENGOGRANDE", L) And Pr = "AL" Then CD = "F997": CP = "15020": PF = "0142"
If LC = Left("ODALENGOPICCOLO", L) And Pr = "AL" Then CD = "F998": CP = "15020": PF = "0142"
If LC = Left("ODERZO", L) And Pr = "TV" Then CD = "F999": CP = "31046": PF = "0422"
If LC = Left("ODOLO", L) And Pr = "BS" Then CD = "G001": CP = "25076": PF = "0365"
If LC = Left("OFENA", L) And Pr = "AQ" Then CD = "G002": CP = "67025": PF = "0932"
If LC = Left("OFFAGNA", L) And Pr = "AN" Then CD = "G003": CP = "60020": PF = "0971"
If LC = Left("OFFANENGO", L) And Pr = "CR" Then CD = "G004": CP = "26010": PF = "0374"
If LC = Left("OFFIDA", L) And Pr = "AP" Then CD = "G005": CP = "63035": PF = "0736"
If LC = Left("OFFLAGA", L) And Pr = "BS" Then CD = "G006": CP = "25020": PF = "030"
If LC = Left("OGGEBBIO", L) And Pr = "NO" Then CD = "G007": CP = "28050": PF = "0323"
If LC = Left("OGGIONACONSANTOST", L) And Pr = "VA" Then CD = "G008": CP = "21040": PF = "0332"
If LC = Left("OGGIONO", L) And Pr = "CO" Then CD = "G009": CP = "22048": PF = "0341"
If LC = Left("OGLIANICO", L) And Pr = "TO" Then CD = "G010": CP = "10080": PF = "011"
If LC = Left("OGLIASTROCILENTO", L) And Pr = "SA" Then CD = "G011": CP = "84061": PF = "0974"
If LC = Left("OLBIA", L) And Pr = "SS" Then CD = "G015": CP = "07026": PF = "0789"
If LC = Left("OLCENENGO", L) And Pr = "VC" Then CD = "G016": CP = "13040": PF = "0161"
If LC = Left("OLDENICO", L) And Pr = "VC" Then CD = "G018": CP = "13030": PF = "0161"
If LC = Left("OLEGGIO", L) And Pr = "NO" Then CD = "G019": CP = "28047": PF = "0321"
If LC = Left("OLEGGIOCASTELLO", L) And Pr = "NO" Then CD = "G020": CP = "28040": PF = "0324"
If LC = Left("OLEVANODILOMELLINA", L) And Pr = "PV" Then CD = "G021": CP = "27020": PF = "0384"
If LC = Left("OLEVANOROMANO", L) And Pr = "RM" Then CD = "G022": CP = "00035": PF = "06"
If LC = Left("OLEVANOSULTUSCIANO", L) And Pr = "SA" Then CD = "G023": CP = "84062": PF = "0828"
If LC = Left("OLGIATECOMASCO", L) And Pr = "CO" Then CD = "G025": CP = "22077": PF = "031"
If LC = Left("OLGIATEMOLGORA", L) And Pr = "CO" Then CD = "G026": CP = "22056": PF = "039"
If LC = Left("OLGIATEOLONA", L) And Pr = "VA" Then CD = "G028": CP = "21057": PF = "0331"
If LC = Left("OLGINATE", L) And Pr = "CO" Then CD = "G030": CP = "22057": PF = "0341"
If LC = Left("OLIENA", L) And Pr = "NU" Then CD = "G031": CP = "08025": PF = "0784"
If LC = Left("OLIVADI", L) And Pr = "CZ" Then CD = "G034": CP = "08060": PF = "0782"
If LC = Left("OLIVAGESSI", L) And Pr = "PV" Then CD = "G032": CP = "27050": PF = "0385"
If LC = Left("OLIVERI", L) And Pr = "ME" Then CD = "G036": CP = "98060": PF = "0941"
If LC = Left("OLIVETOCITRA", L) And Pr = "SA" Then CD = "G039": CP = "84020": PF = "0975"
If LC = Left("OLIVETOLARIO", L) And Pr = "CO" Then CD = "G040": CP = "22030": PF = "031"
If LC = Left("OLIVETOLUCANO", L) And Pr = "MT" Then CD = "G037": CP = "75010": PF = "0835"
If LC = Left("OLIVETTASANMICHELE", L) And Pr = "IM" Then CD = "G041": CP = "18030": PF = "0184"
If LC = Left("OLIVOLA", L) And Pr = "AL" Then CD = "G042": CP = "15030": PF = "0142"
If LC = Left("OLLASTRASIMAXIS", L) And Pr = "OR" Then CD = "G043": CP = "09084": PF = "0783"
If LC = Left("OLLOLAI", L) And Pr = "NU" Then CD = "G044": CP = "08020": PF = "0437"
If LC = Left("OLLOMONT", L) And Pr = "AO" Then CD = "G045": CP = "11010": PF = "0165"
If LC = Left("OLMEDO", L) And Pr = "SS" Then CD = "G046": CP = "07040": PF = "079"
If LC = Left("OLMENETA", L) And Pr = "CR" Then CD = "G047": CP = "26010": PF = "0374"
If LC = Left("OLMOALBREMBO", L) And Pr = "BG" Then CD = "G049": CP = "24010": PF = "035"
If LC = Left("OLMOGENTILE", L) And Pr = "AT" Then CD = "G048": CP = "14050": PF = "0144"
If LC = Left("OLTREILCOLLE", L) And Pr = "BG" Then CD = "G050": CP = "24013": PF = "0345"
If LC = Left("OLTRESSENDAALTA", L) And Pr = "BG" Then CD = "G054": CP = "24020": PF = "0835"
If LC = Left("OLTRONADISANMAMET", L) And Pr = "CO" Then CD = "G056": CP = "22070": PF = "0331"
If LC = Left("OLZAI", L) And Pr = "NU" Then CD = "G058": CP = "08020": PF = "0437"
If LC = Left("OMAN", L) And Pr = "EE" Then CD = "Z235": CP = "": PF = ""
If LC = Left("OME", L) And Pr = "BS" Then CD = "G061": CP = "25050": PF = "0364"
If LC = Left("OMEGNA", L) And Pr = "NO" Then CD = "G062": CP = "28026": PF = "0323"
If LC = Left("OMIGNANO", L) And Pr = "SA" Then CD = "G063": CP = "84060": PF = "0974"
If LC = Left("ONANI", L) And Pr = "NU" Then CD = "G064": CP = "08020": PF = "0437"
If LC = Left("ONANO", L) And Pr = "VT" Then CD = "G065": CP = "01010": PF = "06"
If LC = Left("ONCINO", L) And Pr = "CN" Then CD = "G066": CP = "12030": PF = "0175"
If LC = Left("ONETA", L) And Pr = "BG" Then CD = "G068": CP = "24020": PF = "0835"
If LC = Left("ONIFAI", L) And Pr = "NU" Then CD = "G070": CP = "08020": PF = "0437"
If LC = Left("ONIFERI", L) And Pr = "NU" Then CD = "G071": CP = "08020": PF = "0437"
If LC = Left("ONORE", L) And Pr = "BG" Then CD = "G075": CP = "24020": PF = "0835"
If LC = Left("ONOSANPIETRO", L) And Pr = "BS" Then CD = "G074": CP = "25050": PF = "0364"
If LC = Left("ONZO", L) And Pr = "SV" Then CD = "G076": CP = "17030": PF = "0182"
If LC = Left("OPERA", L) And Pr = "MI" Then CD = "G078": CP = "20090": PF = "045"
If LC = Left("OPI", L) And Pr = "AQ" Then CD = "G079": CP = "67030": PF = "0864"
If LC = Left("OPPEANO", L) And Pr = "VR" Then CD = "G080": CP = "37050": PF = "045"
If LC = Left("OPPIDOLUCANO", L) And Pr = "PZ" Then CD = "G081": CP = "85015": PF = "0971"
If LC = Left("OPPIDOMAMERTINA", L) And Pr = "RC" Then CD = "G082": CP = "89014": PF = "0966"
If LC = Left("ORA", L) And Pr = "BZ" Then CD = "G083": CP = "39040": PF = "0472"
If LC = Left("ORANI", L) And Pr = "NU" Then CD = "G084": CP = "08026": PF = "0784"
If LC = Left("ORATINO", L) And Pr = "CB" Then CD = "G086": CP = "86010": PF = "0874"
If LC = Left("ORBASSANO", L) And Pr = "TO" Then CD = "G087": CP = "10043": PF = "011"
If LC = Left("ORBETELLO", L) And Pr = "GR" Then CD = "G088": CP = "58015": PF = "0564"
If LC = Left("ORCIANODIPESARO", L) And Pr = "PS" Then CD = "G089": CP = "61038": PF = "0721"
If LC = Left("ORCIANOPISANO", L) And Pr = "PI" Then CD = "G090": CP = "56040": PF = "0588"
If LC = Left("ORCOFEGLINO", L) And Pr = "SV" Then CD = "D522": CP = "17020": PF = "019"
If LC = Left("ORDONA", L) And Pr = "FG" Then CD = "G000": CP = "71040": PF = "0885"
If LC = Left("ORERO", L) And Pr = "GE" Then CD = "G093": CP = "16010": PF = "0185"
If LC = Left("ORGIANO", L) And Pr = "VI" Then CD = "G095": CP = "36040": PF = "0445"
If LC = Left("ORGOSOLO", L) And Pr = "NU" Then CD = "G097": CP = "08027": PF = "0784"
If LC = Left("ORIA", L) And Pr = "BR" Then CD = "G098": CP = "72024": PF = "0831"
If LC = Left("ORICOLA", L) And Pr = "AQ" Then CD = "G102": CP = "67063": PF = "0863"
If LC = Left("ORIGGIO", L) And Pr = "VA" Then CD = "G103": CP = "21040": PF = "0332"
If LC = Left("ORINO", L) And Pr = "VA" Then CD = "G105": CP = "21030": PF = "0332"
If LC = Left("ORIOALSERIO", L) And Pr = "BG" Then CD = "G108": CP = "24050": PF = "0363"
If LC = Left("ORIOCANAVESE", L) And Pr = "TO" Then CD = "A109": CP = "10010": PF = "011"
If LC = Left("ORIOLITTA", L) And Pr = "MI" Then CD = "G107": CP = "20080": PF = "0377"
If LC = Left("ORIOLO", L) And Pr = "CS" Then CD = "G110": CP = "87073": PF = "0981"
If LC = Left("ORIOLOROMANO", L) And Pr = "VT" Then CD = "G111": CP = "01010": PF = "06"
If LC = Left("ORISTANO", L) And Pr = "OR" Then CD = "G113": CP = "09170": PF = "0783"
If LC = Left("ORMEA", L) And Pr = "CN" Then CD = "G114": CP = "12078": PF = "0174"
If LC = Left("ORMELLE", L) And Pr = "TV" Then CD = "G115": CP = "31010": PF = "0438"
If LC = Left("ORNAGO", L) And Pr = "MI" Then CD = "G116": CP = "20060": PF = "0984"
If LC = Left("ORNAVASSO", L) And Pr = "NO" Then CD = "G117": CP = "28027": PF = "0323"
If LC = Left("ORNICA", L) And Pr = "BG" Then CD = "G118": CP = "24010": PF = "035"
If LC = Left("OROSEI", L) And Pr = "NU" Then CD = "G119": CP = "08028": PF = "0784"
If LC = Left("OROTELLI", L) And Pr = "NU" Then CD = "G120": CP = "08020": PF = "0437"
If LC = Left("ORRIA", L) And Pr = "SA" Then CD = "G121": CP = "84060": PF = "0974"
If LC = Left("ORROLI", L) And Pr = "NU" Then CD = "G122": CP = "08030": PF = "0782"
If LC = Left("ORSAGO", L) And Pr = "TV" Then CD = "G123": CP = "31010": PF = "0438"
If LC = Left("ORSARABORMIDA", L) And Pr = "AL" Then CD = "G124": CP = "15010": PF = "019"
If LC = Left("ORSARADIPUGLIA", L) And Pr = "FG" Then CD = "G125": CP = "71027": PF = "0881"
If LC = Left("ORSENIGO", L) And Pr = "CO" Then CD = "G126": CP = "22030": PF = "031"
If LC = Left("ORSOGNA", L) And Pr = "CH" Then CD = "G128": CP = "66036": PF = "0871"
If LC = Left("ORSOMARSO", L) And Pr = "CS" Then CD = "G129": CP = "87020": PF = "0985"
If LC = Left("ORTACESUS", L) And Pr = "CA" Then CD = "G133": CP = "09040": PF = "070"
If LC = Left("ORTADIATELLA", L) And Pr = "CE" Then CD = "G130": CP = "81030": PF = "0823"
If LC = Left("ORTANOVA", L) And Pr = "FG" Then CD = "G131": CP = "71045": PF = "0885"
If LC = Left("ORTASANGIULIO", L) And Pr = "NO" Then CD = "G134": CP = "28016": PF = "0322"
If LC = Left("ORTE", L) And Pr = "VT" Then CD = "G135": CP = "01028": PF = "0761"
If LC = Left("ORTELLE", L) And Pr = "LE" Then CD = "G136": CP = "73030": PF = "0836"
If LC = Left("ORTEZZANO", L) And Pr = "AP" Then CD = "G137": CP = "63020": PF = "0734"
If LC = Left("ORTIGNANORAGGIOLO", L) And Pr = "AR" Then CD = "G139": CP = "52010": PF = "0575"
If LC = Left("ORTISEI", L) And Pr = "BZ" Then CD = "G140": CP = "39046": PF = "0471"
If LC = Left("ORTONA", L) And Pr = "CH" Then CD = "G141": CP = "66026": PF = "085"
If LC = Left("ORTONADEMARSI", L) And Pr = "AQ" Then CD = "G142": CP = "67050": PF = "0863"
If LC = Left("ORTONOVO", L) And Pr = "SP" Then CD = "G143": CP = "19034": PF = "0187"
If LC = Left("ORTOVERO", L) And Pr = "SV" Then CD = "G144": CP = "17037": PF = "0182"
If LC = Left("ORTUCCHIO", L) And Pr = "AQ" Then CD = "G145": CP = "67050": PF = "0863"
If LC = Left("ORTUERI", L) And Pr = "NU" Then CD = "G146": CP = "08036": PF = "0784"
If LC = Left("ORUNE", L) And Pr = "NU" Then CD = "G147": CP = "08020": PF = "0437"
If LC = Left("ORVIETO", L) And Pr = "TR" Then CD = "G148": CP = "05018": PF = "0763"
If LC = Left("ORVINIO", L) And Pr = "RI" Then CD = "B595": CP = "02035": PF = "0765"
If LC = Left("ORZINUOVI", L) And Pr = "BS" Then CD = "G149": CP = "25034": PF = "030"
If LC = Left("ORZIVECCHI", L) And Pr = "BS" Then CD = "G150": CP = "25030": PF = "035"
If LC = Left("OSASCO", L) And Pr = "TO" Then CD = "G151": CP = "10060": PF = "011"
If LC = Left("OSASIO", L) And Pr = "TO" Then CD = "G152": CP = "10040": PF = "011"
If LC = Left("OSCHIRI", L) And Pr = "SS" Then CD = "G153": CP = "07027": PF = "079"
If LC = Left("OSIDDA", L) And Pr = "NU" Then CD = "G154": CP = "08020": PF = "0437"
If LC = Left("OSIGLIA", L) And Pr = "SV" Then CD = "G155": CP = "17010": PF = "019"
If LC = Left("OSILO", L) And Pr = "SS" Then CD = "G156": CP = "07033": PF = "079"
If LC = Left("OSIMO", L) And Pr = "AN" Then CD = "G157": CP = "60027": PF = "071"
If LC = Left("OSINI", L) And Pr = "NU" Then CD = "G158": CP = "08040": PF = "0782"
If LC = Left("OSIOSOPRA", L) And Pr = "BG" Then CD = "G159": CP = "24040": PF = "0363"
If LC = Left("OSIOSOTTO", L) And Pr = "BG" Then CD = "G160": CP = "24046": PF = "035"
If LC = Left("OSMATE", L) And Pr = "VA" Then CD = "E529": CP = "21018": PF = "0331"
If LC = Left("OSNAGO", L) And Pr = "CO" Then CD = "G161": CP = "22058": PF = "039"
If LC = Left("OSOPPO", L) And Pr = "UD" Then CD = "G163": CP = "33010": PF = "0433"
If LC = Left("OSPEDALETTI", L) And Pr = "IM" Then CD = "G164": CP = "18014": PF = "0184"
If LC = Left("OSPEDALETTO", L) And Pr = "TN" Then CD = "G168": CP = "38050": PF = "0461"
If LC = Left("OSPEDALETTODALPINO", L) And Pr = "AV" Then CD = "G165": CP = "83014": PF = "0825"
If LC = Left("OSPEDALETTOEUGANEO", L) And Pr = "PD" Then CD = "G167": CP = "35045": PF = "0429"
If LC = Left("OSPEDALETTOLODIGIAN", L) And Pr = "MI" Then CD = "G166": CP = "20080": PF = "0377"
If LC = Left("OSPITALEDICADORE", L) And Pr = "BL" Then CD = "G169": CP = "32010": PF = "0437"
If LC = Left("OSPITALETTO", L) And Pr = "BS" Then CD = "G170": CP = "25035": PF = "030"
If LC = Left("OSSAGOLODIGIANO", L) And Pr = "MI" Then CD = "G171": CP = "20070": PF = "0377"
If LC = Left("OSSANA", L) And Pr = "TN" Then CD = "G173": CP = "38026": PF = "0463"
If LC = Left("OSSI", L) And Pr = "SS" Then CD = "G178": CP = "07045": PF = "079"
If LC = Left("OSSIMO", L) And Pr = "BS" Then CD = "G179": CP = "25050": PF = "0364"
If LC = Left("OSSONA", L) And Pr = "MI" Then CD = "G181": CP = "20010": PF = "081"
If LC = Left("OSSUCCIO", L) And Pr = "CO" Then CD = "G182": CP = "22010": PF = "0344"
If LC = Left("OSTANA", L) And Pr = "CN" Then CD = "G183": CP = "12030": PF = "0175"
If LC = Left("OSTELLATO", L) And Pr = "FE" Then CD = "G184": CP = "44020": PF = "0533"
If LC = Left("OSTIANO", L) And Pr = "CR" Then CD = "G185": CP = "26032": PF = "0372"
If LC = Left("OSTIGLIA", L) And Pr = "MN" Then CD = "G186": CP = "46035": PF = "0386"
If LC = Left("OSTRA", L) And Pr = "AN" Then CD = "F401": CP = "60010": PF = "071"
If LC = Left("OSTRAVETERE", L) And Pr = "AN" Then CD = "F581": CP = "60010": PF = "071"
If LC = Left("OSTUNI", L) And Pr = "BR" Then CD = "G187": CP = "72017": PF = "0831"
If LC = Left("OTRANTO", L) And Pr = "LE" Then CD = "G188": CP = "73028": PF = "0836"
If LC = Left("OTRICOLI", L) And Pr = "TR" Then CD = "G189": CP = "05030": PF = "0744"
If LC = Left("OTTANA", L) And Pr = "NU" Then CD = "G191": CP = "08020": PF = "0437"
If LC = Left("OTTATI", L) And Pr = "SA" Then CD = "G192": CP = "84020": PF = "0975"
If LC = Left("OTTAVIANO", L) And Pr = "NA" Then CD = "G190": CP = "80044": PF = "081"
If LC = Left("OTTIGLIO", L) And Pr = "AL" Then CD = "G193": CP = "15038": PF = "0142"
If LC = Left("OTTOBIANO", L) And Pr = "PV" Then CD = "G194": CP = "27030": PF = "0384"
If LC = Left("OTTONE", L) And Pr = "PC" Then CD = "G195": CP = "29026": PF = "0523"
If LC = Left("OULX", L) And Pr = "TO" Then CD = "G196": CP = "10056": PF = "0122"
If LC = Left("OVADA", L) And Pr = "AL" Then CD = "G197": CP = "15076": PF = "0143"
If LC = Left("OVARO", L) And Pr = "UD" Then CD = "G198": CP = "33025": PF = "0433"
If LC = Left("OVIGLIO", L) And Pr = "AL" Then CD = "G199": CP = "15026": PF = "0131"
If LC = Left("OVINDOLI", L) And Pr = "AQ" Then CD = "G200": CP = "67046": PF = "0863"
If LC = Left("OVODDA", L) And Pr = "NU" Then CD = "G201": CP = "08020": PF = "0437"
If LC = Left("OYACE", L) And Pr = "AO" Then CD = "G012": CP = "11010": PF = "0165"
If LC = Left("OZEGNA", L) And Pr = "TO" Then CD = "G202": CP = "10080": PF = "011"
If LC = Left("OZIERI", L) And Pr = "SS" Then CD = "G203": CP = "07014": PF = "079"
If LC = Left("OZZANODELLEMILIA", L) And Pr = "BO" Then CD = "G205": CP = "40064": PF = "051"
If LC = Left("OZZANOMONFERRATO", L) And Pr = "AL" Then CD = "G204": CP = "15039": PF = "0142"
If LC = Left("OZZERO", L) And Pr = "MI" Then CD = "G206": CP = "20080": PF = "0377"
If LC = Left("PABILLONIS", L) And Pr = "CA" Then CD = "G207": CP = "09030": PF = "070"
If LC = Left("PACECO", L) And Pr = "TP" Then CD = "G208": CP = "91027": PF = "0923"
If LC = Left("PACEDELMELA", L) And Pr = "PA" Then CD = "G209": CP = "98042": PF = "090"
If LC = Left("PACENTRO", L) And Pr = "AQ" Then CD = "G210": CP = "67030": PF = "0864"
If LC = Left("PACHINO", L) And Pr = "SR" Then CD = "G211": CP = "96018": PF = "0931"
If LC = Left("PACIANO", L) And Pr = "PG" Then CD = "G212": CP = "06060": PF = "075"
If LC = Left("PADENGHESULGARDA", L) And Pr = "BS" Then CD = "G213": CP = "25080": PF = "0365"
If LC = Left("PADERGNONE", L) And Pr = "TN" Then CD = "G214": CP = "38070": PF = "0465"
If LC = Left("PADERNA", L) And Pr = "AL" Then CD = "G215": CP = "15050": PF = "0131"
If LC = Left("PADERNODADDA", L) And Pr = "CO" Then CD = "G218": CP = "22050": PF = "039"
If LC = Left("PADERNODELGRAPPA", L) And Pr = "TV" Then CD = "G221": CP = "31010": PF = "0438"
If LC = Left("PADERNODUGNANO", L) And Pr = "MI" Then CD = "G220": CP = "20037": PF = "02"
If LC = Left("PADERNOFRANCIACORTA", L) And Pr = "BS" Then CD = "G217": CP = "25050": PF = "0364"
If LC = Left("PADERNOPONCHIELLI", L) And Pr = "CR" Then CD = "G222": CP = "26024": PF = "0374"
If LC = Left("PADOVA", L) And Pr = "PD" Then CD = "G224": CP = "35100": PF = "049"
If LC = Left("PADRIA", L) And Pr = "SS" Then CD = "G225": CP = "07015": PF = "079"
If LC = Left("PADULA", L) And Pr = "SA" Then CD = "G226": CP = "84034": PF = "0975"
If LC = Left("PADULI", L) And Pr = "BN" Then CD = "G227": CP = "82020": PF = "0976"
If LC = Left("PAESANA", L) And Pr = "CN" Then CD = "G228": CP = "12034": PF = "0175"
If LC = Left("PAESE", L) And Pr = "TV" Then CD = "G229": CP = "31038": PF = "0422"
If LC = Left("PAESIBASSI", L) And Pr = "EE" Then CD = "Z126": CP = "": PF = ""
If LC = Left("PAGANI", L) And Pr = "SA" Then CD = "G230": CP = "84016": PF = "081"
If LC = Left("PAGANICOSABINO", L) And Pr = "RI" Then CD = "G232": CP = "02020": PF = "0765"
If LC = Left("PAGAZZANO", L) And Pr = "BG" Then CD = "G233": CP = "24040": PF = "0363"
If LC = Left("PAGLIARA", L) And Pr = "ME" Then CD = "G234": CP = "98020": PF = "0942"
If LC = Left("PAGLIETA", L) And Pr = "CH" Then CD = "G237": CP = "66020": PF = "0873"
If LC = Left("PAGNACCO", L) And Pr = "UD" Then CD = "G238": CP = "33010": PF = "0433"
If LC = Left("PAGNO", L) And Pr = "CN" Then CD = "G240": CP = "12030": PF = "0175"
If LC = Left("PAGNONA", L) And Pr = "CO" Then CD = "G241": CP = "22050": PF = "039"
If LC = Left("PAGODELVALLODILA", L) And Pr = "AV" Then CD = "G242": CP = "83020": PF = "0825"
If LC = Left("PAGOVEIANO", L) And Pr = "BN" Then CD = "G243": CP = "82020": PF = "0976"
If LC = Left("PAISCOLOVENO", L) And Pr = "BS" Then CD = "G247": CP = "25050": PF = "0364"
If LC = Left("PAITONE", L) And Pr = "BS" Then CD = "G248": CP = "25080": PF = "0365"
If LC = Left("PAKISTAN", L) And Pr = "EE" Then CD = "Z236": CP = "": PF = ""
If LC = Left("PALADINA", L) And Pr = "BG" Then CD = "G249": CP = "24030": PF = "035"
If LC = Left("PALAGANO", L) And Pr = "MO" Then CD = "G250": CP = "41046": PF = "0536"
If LC = Left("PALAGIANELLO", L) And Pr = "TA" Then CD = "G251": CP = "74018": PF = "099"
If LC = Left("PALAGIANO", L) And Pr = "TA" Then CD = "G252": CP = "74019": PF = "099"
If LC = Left("PALAGONIA", L) And Pr = "CT" Then CD = "G253": CP = "95046": PF = "095"
If LC = Left("PALAIA", L) And Pr = "PI" Then CD = "G254": CP = "56036": PF = "0587"
If LC = Left("PALANZANO", L) And Pr = "PR" Then CD = "G255": CP = "43025": PF = "0521"
If LC = Left("PALATA", L) And Pr = "CB" Then CD = "G257": CP = "86037": PF = "0875"
If LC = Left("PALAU", L) And Pr = "SS" Then CD = "G258": CP = "07020": PF = "0789"
If LC = Left("PALAZZAGO", L) And Pr = "BG" Then CD = "G259": CP = "24030": PF = "035"
If LC = Left("PALAZZOADRIANO", L) And Pr = "PA" Then CD = "G263": CP = "90030": PF = "091"
If LC = Left("PALAZZOCANAVESE", L) And Pr = "TO" Then CD = "G262": CP = "10010": PF = "011"
If LC = Left("PALAZZOLOACREIDE", L) And Pr = "SR" Then CD = "G267": CP = "96010": PF = "0931"
If LC = Left("PALAZZOLODELLOSTEL", L) And Pr = "UD" Then CD = "G268": CP = "33056": PF = "0431"
If LC = Left("PALAZZOLOSULLOGLIO", L) And Pr = "BS" Then CD = "G264": CP = "25036": PF = "030"
If LC = Left("PALAZZOLOVERCELLESE", L) And Pr = "VC" Then CD = "G266": CP = "13040": PF = "0161"
If LC = Left("PALAZZOPIGNANO", L) And Pr = "CR" Then CD = "G260": CP = "26020": PF = "0374"
If LC = Left("PALAZZOSANGERVASIO", L) And Pr = "PZ" Then CD = "G261": CP = "85026": PF = "0972"
If LC = Left("PALAZZUOLOSULSENIO", L) And Pr = "FI" Then CD = "G270": CP = "50035": PF = "055"
If LC = Left("PALENA", L) And Pr = "CH" Then CD = "G271": CP = "66017": PF = "0872"
If LC = Left("PALERMITI", L) And Pr = "CZ" Then CD = "G272": CP = "88020": PF = "0968"
If LC = Left("PALERMO", L) And Pr = "PA" Then CD = "G273": CP = "90100": PF = "091"
If LC = Left("PALESTRINA", L) And Pr = "RM" Then CD = "G274": CP = "00036": PF = "06"
If LC = Left("PALESTRO", L) And Pr = "PV" Then CD = "G275": CP = "27030": PF = "0384"
If LC = Left("PALIANO", L) And Pr = "FR" Then CD = "G276": CP = "03018": PF = "0775"
If LC = Left("PALIZZI", L) And Pr = "RC" Then CD = "G277": CP = "89030": PF = "0965"
If LC = Left("PALLAGORIO", L) And Pr = "CZ" Then CD = "G278": CP = "88070": PF = "0984"
If LC = Left("PALLANZENO", L) And Pr = "NO" Then CD = "G280": CP = "28020": PF = "035"
If LC = Left("PALLARE", L) And Pr = "SV" Then CD = "G281": CP = "17040": PF = "019"
If LC = Left("PALMACAMPANIA", L) And Pr = "NA" Then CD = "G283": CP = "80036": PF = "081"
If LC = Left("PALMADIMONTECHIARO", L) And Pr = "AG" Then CD = "G282": CP = "92020": PF = "0925"
If LC = Left("PALMANOVA", L) And Pr = "UD" Then CD = "G284": CP = "33057": PF = "0432"
If LC = Left("PALMARIGGI", L) And Pr = "LE" Then CD = "G285": CP = "73020": PF = "0836"
If LC = Left("PALMASARBOREA", L) And Pr = "OR" Then CD = "G286": CP = "09090": PF = "070"
If LC = Left("PALMI", L) And Pr = "RC" Then CD = "G288": CP = "89015": PF = "0966"
If LC = Left("PALMIANO", L) And Pr = "AP" Then CD = "G289": CP = "63040": PF = "0736"
If LC = Left("PALMOLI", L) And Pr = "CH" Then CD = "G290": CP = "66050": PF = "0873"
If LC = Left("PALODELCOLLE", L) And Pr = "BA" Then CD = "G291": CP = "70027": PF = "080"
If LC = Left("PALOMBARASABINA", L) And Pr = "RM" Then CD = "G293": CP = "00018": PF = "0774"
If LC = Left("PALOMBARO", L) And Pr = "CH" Then CD = "G294": CP = "66010": PF = "Pretoro"
If LC = Left("PALOMONTE", L) And Pr = "SA" Then CD = "G292": CP = "84020": PF = "0975"
If LC = Left("PALOSCO", L) And Pr = "BG" Then CD = "G295": CP = "24050": PF = "0363"
If LC = Left("PALU", L) And Pr = "VR" Then CD = "G297": CP = "37050": PF = "045"
If LC = Left("PALUDELFERSINA", L) And Pr = "TN" Then CD = "G296": CP = "38050": PF = "0461"
If LC = Left("PALUDI", L) And Pr = "CS" Then CD = "G298": CP = "87060": PF = "0983"
If LC = Left("PALUZZA", L) And Pr = "UD" Then CD = "G300": CP = "33026": PF = "0433"
If LC = Left("PAMPARATO", L) And Pr = "CN" Then CD = "G302": CP = "12087": PF = "0174"
If LC = Left("PANAMA", L) And Pr = "EE" Then CD = "Z516": CP = "": PF = ""
If LC = Left("PANCALIERI", L) And Pr = "TO" Then CD = "G303": CP = "10060": PF = "011"
If LC = Left("PANCARANA", L) And Pr = "PV" Then CD = "G304": CP = "27050": PF = "0385"
If LC = Left("PANCHIA", L) And Pr = "TN" Then CD = "G305": CP = "38030": PF = "0861"
If LC = Left("PANDINO", L) And Pr = "CR" Then CD = "G306": CP = "26025": PF = "0373"
If LC = Left("PANETTIERI", L) And Pr = "CS" Then CD = "G307": CP = "87050": PF = "0984"
If LC = Left("PANICALE", L) And Pr = "PG" Then CD = "G308": CP = "06064": PF = "075"
If LC = Left("PANNARANO", L) And Pr = "BN" Then CD = "G311": CP = "82017": PF = "0824"
If LC = Left("PANNI", L) And Pr = "FG" Then CD = "G312": CP = "71020": PF = "0885"
If LC = Left("PANTELLERIA", L) And Pr = "TP" Then CD = "G315": CP = "91017": PF = "0923"
If LC = Left("PANTIGLIATE", L) And Pr = "MI" Then CD = "G316": CP = "20090": PF = "045"
If LC = Left("PAOLA", L) And Pr = "CS" Then CD = "G317": CP = "87027": PF = "0982"
If LC = Left("PAOLISI", L) And Pr = "BN" Then CD = "G318": CP = "82010": PF = "0824"
If LC = Left("PAPASIDERO", L) And Pr = "CS" Then CD = "G320": CP = "87020": PF = "0985"
If LC = Left("PAPOZZE", L) And Pr = "RO" Then CD = "G323": CP = "45010": PF = "0426"
If LC = Left("PAPUASIA", L) And Pr = "EE" Then CD = "Z720": CP = "": PF = ""


If CD <> "" And N = 1 Then Loc8 = CD
If CD <> "" And N = 2 Then Loc8 = CP
If CD <> "" And N = 3 Then Loc8 = PF

End Function