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

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

If LC = Left("PARABIAGO", L) And Pr = "MI" Then CD = "G324": CP = "20015": PF = "0331"
If LC = Left("PARABITA", L) And Pr = "LE" Then CD = "G325": CP = "73052": PF = "0833"
If LC = Left("PARAGUAY", L) And Pr = "EE" Then CD = "Z610": CP = "": PF = ""
If LC = Left("PARATICO", L) And Pr = "BS" Then CD = "G327": CP = "25030": PF = "035"
If LC = Left("PARCINES", L) And Pr = "BZ" Then CD = "G328": CP = "39020": PF = "0473"
If LC = Left("PARE", L) And Pr = "CO" Then CD = "G329": CP = "22020": PF = "0384"
If LC = Left("PARELLA", L) And Pr = "TO" Then CD = "G330": CP = "10010": PF = "011"
If LC = Left("PARENTI", L) And Pr = "CS" Then CD = "G331": CP = "87040": PF = "0984"
If LC = Left("PARETE", L) And Pr = "CE" Then CD = "G333": CP = "81030": PF = "0823"
If LC = Left("PARETO", L) And Pr = "AL" Then CD = "G334": CP = "15010": PF = "019"
If LC = Left("PARGHELIA", L) And Pr = "CZ" Then CD = "G335": CP = "88035": PF = "0963"
If LC = Left("PARLASCO", L) And Pr = "CO" Then CD = "G336": CP = "22040": PF = "039"
If LC = Left("PARMA", L) And Pr = "PR" Then CD = "G337": CP = "43100": PF = "0521"
If LC = Left("PARODILIGURE", L) And Pr = "AL" Then CD = "G338": CP = "15060": PF = "0143"
If LC = Left("PAROLDO", L) And Pr = "CN" Then CD = "G339": CP = "12070": PF = "0174"
If LC = Left("PAROLISE", L) And Pr = "AV" Then CD = "G340": CP = "83050": PF = "0835"
If LC = Left("PARONA", L) And Pr = "PV" Then CD = "G342": CP = "27020": PF = "0384"
If LC = Left("PARRANO", L) And Pr = "TR" Then CD = "G344": CP = "05010": PF = "075"
If LC = Left("PARRE", L) And Pr = "BG" Then CD = "G346": CP = "24020": PF = "0835"
If LC = Left("PARTANNA", L) And Pr = "TP" Then CD = "G347": CP = "91028": PF = "0924"
If LC = Left("PARTINICO", L) And Pr = "PA" Then CD = "G348": CP = "90047": PF = "091"
If LC = Left("PARUZZARO", L) And Pr = "NO" Then CD = "G349": CP = "28040": PF = "0324"
If LC = Left("PARZANICA", L) And Pr = "BG" Then CD = "G350": CP = "24060": PF = "035"
If LC = Left("PASIANDIPRATO", L) And Pr = "UD" Then CD = "G352": CP = "33037": PF = "0432"
If LC = Left("PASIANODIPORDENONE", L) And Pr = "PN" Then CD = "G353": CP = "33087": PF = "0434"
If LC = Left("PASPARDO", L) And Pr = "BS" Then CD = "G354": CP = "25050": PF = "0364"
If LC = Left("PASSERANOMARMORITO", L) And Pr = "AT" Then CD = "G358": CP = "14020": PF = "0141"
If LC = Left("PASSIGNANOSULTRASI", L) And Pr = "PG" Then CD = "G359": CP = "06065": PF = "075"
If LC = Left("PASSIRANO", L) And Pr = "BS" Then CD = "G361": CP = "25050": PF = "0364"
If LC = Left("PASTENA", L) And Pr = "FR" Then CD = "G362": CP = "03020": PF = "0775"
If LC = Left("PASTORANO", L) And Pr = "CE" Then CD = "G364": CP = "81050": PF = "0823"
If LC = Left("PASTRENGO", L) And Pr = "VR" Then CD = "G365": CP = "37010": PF = "045"
If LC = Left("PASTURANA", L) And Pr = "AL" Then CD = "G367": CP = "15060": PF = "0143"
If LC = Left("PASTURO", L) And Pr = "CO" Then CD = "G368": CP = "22040": PF = "039"
If LC = Left("PATERNO", L) And Pr = "PZ" Then CD = "G369": CP = "85050": PF = "0976"
If LC = Left("PATERNO", L) And Pr = "CT" Then CD = "G371": CP = "95047": PF = "095"
If LC = Left("PATERNOCALABRO", L) And Pr = "CS" Then CD = "G372": CP = "87040": PF = "0984"
If LC = Left("PATERNOPOLI", L) And Pr = "AV" Then CD = "G370": CP = "83052": PF = "0827"
If LC = Left("PATRICA", L) And Pr = "FR" Then CD = "G374": CP = "03010": PF = "0775"
If LC = Left("PATTADA", L) And Pr = "SS" Then CD = "G376": CP = "07016": PF = "079"
If LC = Left("PATTI", L) And Pr = "ME" Then CD = "G377": CP = "98066": PF = "0941"
If LC = Left("PATU", L) And Pr = "LE" Then CD = "G378": CP = "73053": PF = "0833"
If LC = Left("PAU", L) And Pr = "OR" Then CD = "G379": CP = "09090": PF = "070"
If LC = Left("PAULARO", L) And Pr = "UD" Then CD = "G381": CP = "33027": PF = "0433"
If LC = Left("PAULIARBAREI", L) And Pr = "CA" Then CD = "G382": CP = "09020": PF = "070"
If LC = Left("PAULILATINO", L) And Pr = "OR" Then CD = "G384": CP = "09070": PF = "0758"
If LC = Left("PAULLO", L) And Pr = "MI" Then CD = "G385": CP = "20067": PF = "02"
If LC = Left("PAUPISI", L) And Pr = "BN" Then CD = "G386": CP = "82030": PF = "0824"
If LC = Left("PAVAROLO", L) And Pr = "TO" Then CD = "G387": CP = "10020": PF = "011"
If LC = Left("PAVIA", L) And Pr = "PV" Then CD = "G388": CP = "27100": PF = "0382"
If LC = Left("PAVIADIUDINE", L) And Pr = "UD" Then CD = "G389": CP = "33050": PF = "0432"
If LC = Left("PAVONECANAVESE", L) And Pr = "TO" Then CD = "G392": CP = "10018": PF = "0125"
If LC = Left("PAVONEDELMELLA", L) And Pr = "BS" Then CD = "G391": CP = "25020": PF = "030"
If LC = Left("PAVULLONELFRIGNANO", L) And Pr = "MO" Then CD = "G393": CP = "41026": PF = "0536"
If LC = Left("PAZZANO", L) And Pr = "RC" Then CD = "G394": CP = "89040": PF = "0964"
If LC = Left("PECCIOLI", L) And Pr = "PI" Then CD = "G395": CP = "56037": PF = "0587"
If LC = Left("PECCO", L) And Pr = "TO" Then CD = "G396": CP = "10080": PF = "011"
If LC = Left("PECETTODIVALENZA", L) And Pr = "AL" Then CD = "G397": CP = "15040": PF = "0142"
If LC = Left("PECETTOTORINESE", L) And Pr = "TO" Then CD = "G398": CP = "10020": PF = "011"
If LC = Left("PECORARA", L) And Pr = "PC" Then CD = "G399": CP = "29010": PF = "0523"
If LC = Left("PEDACE", L) And Pr = "CS" Then CD = "G400": CP = "87050": PF = "0984"
If LC = Left("PEDARA", L) And Pr = "CT" Then CD = "G402": CP = "95030": PF = "0965"
If LC = Left("PEDASO", L) And Pr = "AP" Then CD = "G403": CP = "63016": PF = "0734"
If LC = Left("PEDAVENA", L) And Pr = "BL" Then CD = "G404": CP = "32034": PF = "0439"
If LC = Left("PEDEMONTE", L) And Pr = "VI" Then CD = "G406": CP = "36040": PF = "0445"
If LC = Left("PEDEROBBA", L) And Pr = "TV" Then CD = "G408": CP = "31040": PF = "0432"
If LC = Left("PEDESINA", L) And Pr = "SO" Then CD = "G410": CP = "23010": PF = "0342"
If LC = Left("PEDIVIGLIANO", L) And Pr = "CS" Then CD = "G411": CP = "87050": PF = "0984"
If LC = Left("PEDRENGO", L) And Pr = "BG" Then CD = "G412": CP = "24066": PF = "035"
If LC = Left("PEGLIO", L) And Pr = "CO" Then CD = "G415": CP = "22010": PF = "0344"
If LC = Left("PEGLIO", L) And Pr = "PS" Then CD = "G416": CP = "61040": PF = "0722"
If LC = Left("PEGOGNAGA", L) And Pr = "MN" Then CD = "G417": CP = "46020": PF = "0386"
If LC = Left("PEIA", L) And Pr = "BG" Then CD = "G418": CP = "24020": PF = "0835"
If LC = Left("PEIO", L) And Pr = "TN" Then CD = "G419": CP = "38020": PF = "0463"
If LC = Left("PELAGO", L) And Pr = "FI" Then CD = "G420": CP = "50060": PF = "055"
If LC = Left("PELLA", L) And Pr = "NO" Then CD = "G421": CP = "28010": PF = "0323"
If LC = Left("PELLEGRINOPARMENSE", L) And Pr = "PR" Then CD = "G424": CP = "43047": PF = "0524"
If LC = Left("PELLEZZANO", L) And Pr = "SA" Then CD = "G426": CP = "84080": PF = "089"
If LC = Left("PELLIOINTELVI", L) And Pr = "CO" Then CD = "G427": CP = "22020": PF = "0384"
If LC = Left("PELLIZZANO", L) And Pr = "TN" Then CD = "G428": CP = "38020": PF = "0463"
If LC = Left("PELUGO", L) And Pr = "TN" Then CD = "G429": CP = "38088": PF = "0465"
If LC = Left("PENANGO", L) And Pr = "AT" Then CD = "G430": CP = "14030": PF = "0141"
If LC = Left("PENNABILLI", L) And Pr = "PS" Then CD = "G433": CP = "61016": PF = "0541"
If LC = Left("PENNADOMO", L) And Pr = "CH" Then CD = "G434": CP = "66040": PF = "0873"
If LC = Left("PENNAINTEVERINA", L) And Pr = "TR" Then CD = "G432": CP = "05028": PF = "0744"
If LC = Left("PENNAPIEDIMONTE", L) And Pr = "CH" Then CD = "G435": CP = "66010": PF = "Pretoro"
If LC = Left("PENNASANGIOVANNI", L) And Pr = "MC" Then CD = "G436": CP = "62020": PF = "0737"
If LC = Left("PENNASANTANDREA", L) And Pr = "TE" Then CD = "G437": CP = "64039": PF = "0861"
If LC = Left("PENNE", L) And Pr = "PE" Then CD = "G438": CP = "65017": PF = "085"
If LC = Left("PENTONE", L) And Pr = "CZ" Then CD = "G439": CP = "88050": PF = "0961"
If LC = Left("PERANO", L) And Pr = "CH" Then CD = "G441": CP = "66040": PF = "0873"
If LC = Left("PERAROLODICADORE", L) And Pr = "BL" Then CD = "G442": CP = "32010": PF = "0437"
If LC = Left("PERCA", L) And Pr = "BZ" Then CD = "G443": CP = "39031": PF = "0474"
If LC = Left("PERCILE", L) And Pr = "RM" Then CD = "G444": CP = "00020": PF = "0774"
If LC = Left("PERDASDEFOGU", L) And Pr = "NU" Then CD = "G445": CP = "08046": PF = "0782"
If LC = Left("PERDAXIUS", L) And Pr = "CA" Then CD = "G446": CP = "09010": PF = "070"
If LC = Left("PERDIFUMO", L) And Pr = "SA" Then CD = "G447": CP = "84060": PF = "0974"
If LC = Left("PEREGO", L) And Pr = "CO" Then CD = "G448": CP = "22050": PF = "039"
If LC = Left("PERETO", L) And Pr = "AQ" Then CD = "G449": CP = "67064": PF = "0863"
If LC = Left("PERFUGAS", L) And Pr = "SS" Then CD = "G450": CP = "07034": PF = "079"
If LC = Left("PERGINEVALDARNO", L) And Pr = "AR" Then CD = "G451": CP = "52020": PF = "0575"
If LC = Left("PERGINEVALSUGANA", L) And Pr = "TN" Then CD = "G452": CP = "38057": PF = "0461"
If LC = Left("PERGOLA", L) And Pr = "PS" Then CD = "G453": CP = "61045": PF = "0721"
If LC = Left("PERINALDO", L) And Pr = "IM" Then CD = "G454": CP = "18030": PF = "0184"
If LC = Left("PERITO", L) And Pr = "SA" Then CD = "G455": CP = "84060": PF = "0974"
If LC = Left("PERLEDO", L) And Pr = "CO" Then CD = "G456": CP = "22050": PF = "039"
If LC = Left("PERLETTO", L) And Pr = "CN" Then CD = "G457": CP = "12070": PF = "0174"
If LC = Left("PERLO", L) And Pr = "CN" Then CD = "G458": CP = "12070": PF = "0174"
If LC = Left("PERLOZ", L) And Pr = "AO" Then CD = "G459": CP = "11020": PF = "0166"
If LC = Left("PERNUMIA", L) And Pr = "PD" Then CD = "G461": CP = "35020": PF = "049"
If LC = Left("PERO", L) And Pr = "MI" Then CD = "C013": CP = "20016": PF = "02"
If LC = Left("PEROSAARGENTINA", L) And Pr = "TO" Then CD = "G463": CP = "10063": PF = "0121"
If LC = Left("PEROSACANAVESE", L) And Pr = "TO" Then CD = "G462": CP = "10010": PF = "011"
If LC = Left("PERRERO", L) And Pr = "TO" Then CD = "G465": CP = "10060": PF = "011"
If LC = Left("PERSICODOSIMO", L) And Pr = "CR" Then CD = "G469": CP = "26043": PF = "0372"
If LC = Left("PERTENGO", L) And Pr = "VC" Then CD = "G471": CP = "13030": PF = "0161"
If LC = Left("PERTICAALTA", L) And Pr = "BS" Then CD = "G474": CP = "25070": PF = "0365"
If LC = Left("PERTICABASSA", L) And Pr = "BS" Then CD = "G475": CP = "25070": PF = "0365"
If LC = Left("PERTOSA", L) And Pr = "SA" Then CD = "G476": CP = "84030": PF = "0975"
If LC = Left("PERTUSIO", L) And Pr = "TO" Then CD = "G477": CP = "10080": PF = "011"
If LC = Left("PERU`", L) And Pr = "EE" Then CD = "Z611": CP = "": PF = ""
If LC = Left("PERUGIA", L) And Pr = "PG" Then CD = "G478": CP = "06100": PF = "075"
If LC = Left("PESARO", L) And Pr = "PS" Then CD = "G479": CP = "61100": PF = "0721"
If LC = Left("PESCAGLIA", L) And Pr = "LU" Then CD = "G480": CP = "55064": PF = "0583"
If LC = Left("PESCANTINA", L) And Pr = "VR" Then CD = "G481": CP = "37026": PF = "045"
If LC = Left("PESCARA", L) And Pr = "PE" Then CD = "G482": CP = "65100": PF = "085"
If LC = Left("PESCAROLOEDUNITI", L) And Pr = "CR" Then CD = "G483": CP = "26033": PF = "0372"
If LC = Left("PESCASSEROLI", L) And Pr = "AQ" Then CD = "G484": CP = "67032": PF = "0863"
If LC = Left("PESCATE", L) And Pr = "CO" Then CD = "G485": CP = "22050": PF = "039"
If LC = Left("PESCHE", L) And Pr = "IS" Then CD = "G486": CP = "86090": PF = "0865"
If LC = Left("PESCHICI", L) And Pr = "FG" Then CD = "G487": CP = "71010": PF = "0884"
If LC = Left("PESCHIERABORROMEO", L) And Pr = "MI" Then CD = "G488": CP = "20068": PF = "02"
If LC = Left("PESCHIERADELGARDA", L) And Pr = "VR" Then CD = "G489": CP = "37019": PF = "045"
If LC = Left("PESCIA", L) And Pr = "PT" Then CD = "G491": CP = "51017": PF = "0572"
If LC = Left("PESCINA", L) And Pr = "AQ" Then CD = "G492": CP = "67057": PF = "0863"
If LC = Left("PESCOCOSTANZO", L) And Pr = "AQ" Then CD = "G493": CP = "67033": PF = "0864"
If LC = Left("PESCOLANCIANO", L) And Pr = "IS" Then CD = "G495": CP = "86097": PF = "0865"
If LC = Left("PESCOPAGANO", L) And Pr = "PZ" Then CD = "G496": CP = "85020": PF = "0976"
If LC = Left("PESCOPENNATARO", L) And Pr = "IS" Then CD = "G497": CP = "86080": PF = "0865"
If LC = Left("PESCOROCCHIANO", L) And Pr = "RI" Then CD = "G498": CP = "02024": PF = "0746"
If LC = Left("PESCOSANNITA", L) And Pr = "BN" Then CD = "G494": CP = "82020": PF = "0976"
If LC = Left("PESCOSANSONESCO", L) And Pr = "PE" Then CD = "G499": CP = "65020": PF = "085"
If LC = Left("PESCOSOLIDO", L) And Pr = "FR" Then CD = "G500": CP = "03030": PF = "0776"
If LC = Left("PESSANOCONBORNAGO", L) And Pr = "MI" Then CD = "G502": CP = "20060": PF = "0984"
If LC = Left("PESSINACREMONESE", L) And Pr = "CR" Then CD = "G504": CP = "26030": PF = "0376"
If LC = Left("PESSINETTO", L) And Pr = "TO" Then CD = "G505": CP = "10070": PF = "011"
If LC = Left("PETACCIATO", L) And Pr = "CB" Then CD = "G506": CP = "86038": PF = "0875"
If LC = Left("PETILLIAPOLICASTRO", L) And Pr = "CZ" Then CD = "G508": CP = "88053": PF = "0962"
If LC = Left("PETINA", L) And Pr = "SA" Then CD = "G509": CP = "84020": PF = "0975"
If LC = Left("PETRALIASOPRANA", L) And Pr = "PA" Then CD = "G510": CP = "90026": PF = "0921"
If LC = Left("PETRALIASOTTANA", L) And Pr = "PA" Then CD = "G511": CP = "90027": PF = "0921"
If LC = Left("PETRELLASALTO", L) And Pr = "RI" Then CD = "G513": CP = "02025": PF = "0746"
If LC = Left("PETRELLATIFERNINA", L) And Pr = "CB" Then CD = "G512": CP = "86024": PF = "0874"
If LC = Left("PETRIANO", L) And Pr = "PS" Then CD = "G514": CP = "61020": PF = "0772"
If LC = Left("PETRIOLO", L) And Pr = "MC" Then CD = "G515": CP = "62010": PF = "0733"
If LC = Left("PETRITOLI", L) And Pr = "AP" Then CD = "G516": CP = "63027": PF = "0734"
If LC = Left("PETRIZZI", L) And Pr = "CZ" Then CD = "G517": CP = "88060": PF = "0967"
If LC = Left("PETRONA", L) And Pr = "CZ" Then CD = "G518": CP = "88050": PF = "0961"
If LC = Left("PETRUROIRPINO", L) And Pr = "AV" Then CD = "G519": CP = "83010": PF = "0825"
If LC = Left("PETTENASCO", L) And Pr = "NO" Then CD = "G520": CP = "28028": PF = "0774"
If LC = Left("PETTINENGO", L) And Pr = "VC" Then CD = "G521": CP = "13050": PF = "015"
If LC = Left("PETTINEO", L) And Pr = "ME" Then CD = "G522": CP = "98070": PF = "0941"
If LC = Left("PETTORANELLODELMOL", L) And Pr = "IS" Then CD = "G523": CP = "86090": PF = "0865"
If LC = Left("PETTORANOSULGIZIO", L) And Pr = "AQ" Then CD = "G524": CP = "67034": PF = "0864"
If LC = Left("PETTORAZZA", L) And Pr = "RO" Then CD = "G525": CP = "45010": PF = "0426"
If LC = Left("PEVERAGNO", L) And Pr = "CN" Then CD = "G526": CP = "12016": PF = "0171"
If LC = Left("PEZZANA", L) And Pr = "VC" Then CD = "G528": CP = "13010": PF = "0163"
If LC = Left("PEZZAZE", L) And Pr = "BS" Then CD = "G529": CP = "25060": PF = "030"
If LC = Left("PEZZOLOVALLEUZZONE", L) And Pr = "CN" Then CD = "G532": CP = "12070": PF = "0174"
If LC = Left("PIACENZA", L) And Pr = "PC" Then CD = "G535": CP = "29100": PF = "0523"
If LC = Left("PIACENZADADIGE", L) And Pr = "PD" Then CD = "G534": CP = "35040": PF = "0429"
If LC = Left("PIADENA", L) And Pr = "CR" Then CD = "G536": CP = "26034": PF = "0375"
If LC = Left("PIAGGE", L) And Pr = "PS" Then CD = "G537": CP = "61030": PF = "0721"
If LC = Left("PIAGGINE", L) And Pr = "SA" Then CD = "G538": CP = "84065": PF = "0974"
If LC = Left("PIANACRIXIA", L) And Pr = "SV" Then CD = "G542": CP = "17010": PF = "019"
If LC = Left("PIANADEGLIALBANESI", L) And Pr = "PA" Then CD = "G543": CP = "90037": PF = "091"
If LC = Left("PIANADICAIAZZO", L) And Pr = "CE" Then CD = "G541": CP = "81015": PF = "0923"
If LC = Left("PIANCAMUNO", L) And Pr = "BS" Then CD = "G546": CP = "25050": PF = "0364"
If LC = Left("PIANCASTAGNAIO", L) And Pr = "SI" Then CD = "G547": CP = "53025": PF = "0577"
If LC = Left("PIANCOGNO", L) And Pr = "BS" Then CD = "G549": CP = "25052": PF = "0364"
If LC = Left("PIANDIMELETO", L) And Pr = "PS" Then CD = "G551": CP = "61026": PF = "0722"
If LC = Left("PIANDISCO", L) And Pr = "AR" Then CD = "G552": CP = "52026": PF = "055"
If LC = Left("PIANECRATI", L) And Pr = "CS" Then CD = "G553": CP = "87050": PF = "0984"
If LC = Left("PIANELLA", L) And Pr = "PE" Then CD = "G555": CP = "65019": PF = "085"
If LC = Left("PIANELLODELLARIO", L) And Pr = "CO" Then CD = "G556": CP = "22010": PF = "0344"
If LC = Left("PIANELLOVALTIDONE", L) And Pr = "PC" Then CD = "G557": CP = "29010": PF = "0523"
If LC = Left("PIANENGO", L) And Pr = "CR" Then CD = "G558": CP = "26010": PF = "0374"
If LC = Left("PIANEZZA", L) And Pr = "TO" Then CD = "G559": CP = "10044": PF = "011"
If LC = Left("PIANEZZE", L) And Pr = "VI" Then CD = "G560": CP = "36060": PF = "0424"
If LC = Left("PIANFEI", L) And Pr = "CN" Then CD = "G561": CP = "12080": PF = "0174"
If LC = Left("PIANICO", L) And Pr = "BG" Then CD = "G564": CP = "24060": PF = "035"
If LC = Left("PIANIGA", L) And Pr = "VE" Then CD = "G565": CP = "30030": PF = "049"
If LC = Left("PIANODISORRENTO", L) And Pr = "NA" Then CD = "G568": CP = "80063": PF = "081"
If LC = Left("PIANOPOLI", L) And Pr = "CZ" Then CD = "D546": CP = "88040": PF = "0968"
If LC = Left("PIANORO", L) And Pr = "BO" Then CD = "G570": CP = "40065": PF = "051"
If LC = Left("PIANSANO", L) And Pr = "VT" Then CD = "G571": CP = "01010": PF = "06"
If LC = Left("PIANTEDO", L) And Pr = "SO" Then CD = "G572": CP = "23010": PF = "0342"
If LC = Left("PIARIO", L) And Pr = "BG" Then CD = "G574": CP = "24020": PF = "0835"
If LC = Left("PIASCO", L) And Pr = "CN" Then CD = "G575": CP = "12026": PF = "0175"
If LC = Left("PIATEDA", L) And Pr = "SO" Then CD = "G576": CP = "23020": PF = "0343"
If LC = Left("PIATTO", L) And Pr = "VC" Then CD = "G577": CP = "13050": PF = "015"
If LC = Left("PIAZZAALSERCHIO", L) And Pr = "LU" Then CD = "G582": CP = "55035": PF = "0583"
If LC = Left("PIAZZAARMERINA", L) And Pr = "EN" Then CD = "G580": CP = "94015": PF = "0935"
If LC = Left("PIAZZABREMBANA", L) And Pr = "BG" Then CD = "G579": CP = "24014": PF = "0345"
If LC = Left("PIAZZATORRE", L) And Pr = "BG" Then CD = "G583": CP = "24010": PF = "035"
If LC = Left("PIAZZOLASULBRENTA", L) And Pr = "PD" Then CD = "G587": CP = "35016": PF = "049"
If LC = Left("PIAZZOLO", L) And Pr = "BG" Then CD = "G588": CP = "24010": PF = "035"
If LC = Left("PICCIANO", L) And Pr = "PE" Then CD = "G589": CP = "65010": PF = "085"
If LC = Left("PICERNO", L) And Pr = "PZ" Then CD = "G590": CP = "85055": PF = "0971"
If LC = Left("PICINISCO", L) And Pr = "FR" Then CD = "G591": CP = "03040": PF = "0776"
If LC = Left("PICO", L) And Pr = "FR" Then CD = "G592": CP = "03020": PF = "0775"
If LC = Left("PIEA", L) And Pr = "AT" Then CD = "G593": CP = "14020": PF = "0141"
If LC = Left("PIEDICAVALLO", L) And Pr = "VC" Then CD = "G594": CP = "13060": PF = "0163"
If LC = Left("PIEDIMONTEETNEO", L) And Pr = "CT" Then CD = "G597": CP = "95017": PF = "095"
If LC = Left("PIEDIMONTEMATESE", L) And Pr = "CE" Then CD = "G596": CP = "81016": PF = "0823"
If LC = Left("PIEDIMONTESANGERMA", L) And Pr = "FR" Then CD = "G598": CP = "03030": PF = "0776"
If LC = Left("PIEDIMULERA", L) And Pr = "NO" Then CD = "G600": CP = "28020": PF = "035"
If LC = Left("PIEGARO", L) And Pr = "PG" Then CD = "G601": CP = "06066": PF = "075"
If LC = Left("PIENZA", L) And Pr = "SI" Then CD = "G602": CP = "53026": PF = "0577"
If LC = Left("PIERANICA", L) And Pr = "CR" Then CD = "G603": CP = "26017": PF = "0373"
If LC = Left("PIETRABBONDANTE", L) And Pr = "IS" Then CD = "G606": CP = "86085": PF = "0865"
If LC = Left("PIETRABRUNA", L) And Pr = "IM" Then CD = "G607": CP = "18010": PF = "0184"
If LC = Left("PIETRACAMELA", L) And Pr = "TE" Then CD = "G608": CP = "64047": PF = "0861"
If LC = Left("PIETRACATELLA", L) And Pr = "CB" Then CD = "G609": CP = "86040": PF = "0874"
If LC = Left("PIETRACUPA", L) And Pr = "CB" Then CD = "G610": CP = "86020": PF = "0874"
If LC = Left("PIETRADEFUSI", L) And Pr = "AV" Then CD = "G611": CP = "83030": PF = "0827"
If LC = Left("PIETRADEGIORGI", L) And Pr = "PV" Then CD = "G612": CP = "27040": PF = "0385"
If LC = Left("PIETRAFERRAZZANA", L) And Pr = "CH" Then CD = "G613": CP = "66040": PF = "0873"
If LC = Left("PIETRAFITTA", L) And Pr = "CS" Then CD = "G615": CP = "87050": PF = "0984"
If LC = Left("PIETRAGALLA", L) And Pr = "PZ" Then CD = "G616": CP = "85016": PF = "0971"
If LC = Left("PIETRALIGURE", L) And Pr = "SV" Then CD = "G605": CP = "17027": PF = "019"
If LC = Left("PIETRALUNGA", L) And Pr = "PG" Then CD = "G618": CP = "06026": PF = "075"
If LC = Left("PIETRAMARAZZI", L) And Pr = "AL" Then CD = "G619": CP = "15040": PF = "0142"
If LC = Left("PIETRAMELARA", L) And Pr = "CE" Then CD = "G620": CP = "81051": PF = "0823"
If LC = Left("PIETRAMONTECORVINO", L) And Pr = "FG" Then CD = "G604": CP = "71038": PF = "0881"
If LC = Left("PIETRANICO", L) And Pr = "PE" Then CD = "G621": CP = "65020": PF = "085"
If LC = Left("PIETRAPAOLA", L) And Pr = "CS" Then CD = "G622": CP = "87060": PF = "0983"
If LC = Left("PIETRAPERTOSA", L) And Pr = "PZ" Then CD = "G623": CP = "85010": PF = "0971"
If LC = Left("PIETRAPERZIA", L) And Pr = "EN" Then CD = "G624": CP = "94016": PF = "0934"
If LC = Left("PIETRAPORZIO", L) And Pr = "CN" Then CD = "G625": CP = "12010": PF = "0171"
If LC = Left("PIETRAROJA", L) And Pr = "BN" Then CD = "G626": CP = "82030": PF = "0824"
If LC = Left("PIETRARUBBIA", L) And Pr = "PS" Then CD = "G627": CP = "61020": PF = "0772"
If LC = Left("PIETRASANTA", L) And Pr = "LU" Then CD = "G628": CP = "55045": PF = "0584"
If LC = Left("PIETRASTORNINA", L) And Pr = "AV" Then CD = "G629": CP = "83015": PF = "0825"
If LC = Left("PIETRAVAIRANO", L) And Pr = "CE" Then CD = "G630": CP = "81050": PF = "0823"
If LC = Left("PIETRELCINA", L) And Pr = "BN" Then CD = "G631": CP = "82020": PF = "0976"
If LC = Left("PIEVEALBIGNOLA", L) And Pr = "PV" Then CD = "G635": CP = "27030": PF = "0384"
If LC = Left("PIEVEANIEVOLE", L) And Pr = "PT" Then CD = "G636": CP = "51018": PF = "0572"
If LC = Left("PIEVEBOVIGLIANA", L) And Pr = "MC" Then CD = "G637": CP = "62035": PF = "0737"
If LC = Left("PIEVEDALPAGO", L) And Pr = "BL" Then CD = "G638": CP = "32010": PF = "0437"
If LC = Left("PIEVEDELCAIRO", L) And Pr = "PV" Then CD = "G639": CP = "27037": PF = "0384"
If LC = Left("PIEVEDIBONO", L) And Pr = "TN" Then CD = "G641": CP = "38085": PF = "0465"
If LC = Left("PIEVEDICADORE", L) And Pr = "BL" Then CD = "G642": CP = "32044": PF = "0435"
If LC = Left("PIEVEDICENTO", L) And Pr = "BO" Then CD = "G643": CP = "40066": PF = "051"
If LC = Left("PIEVEDICORIANO", L) And Pr = "MN" Then CD = "G633": CP = "46020": PF = "0386"
If LC = Left("PIEVEDILEDRO", L) And Pr = "TN" Then CD = "G644": CP = "38060": PF = "0464"
If LC = Left("PIEVEDISOLIGO", L) And Pr = "TV" Then CD = "G645": CP = "31053": PF = "0438"
If LC = Left("PIEVEDITECO", L) And Pr = "IM" Then CD = "G632": CP = "18026": PF = "0183"
If LC = Left("PIEVEDOLMI", L) And Pr = "CR" Then CD = "G647": CP = "26040": PF = "0375"
If LC = Left("PIEVEEMANUELE", L) And Pr = "MI" Then CD = "G634": CP = "20090": PF = "045"
If LC = Left("PIEVEFISSIRAGA", L) And Pr = "MI" Then CD = "G096": CP = "20070": PF = "0377"
If LC = Left("PIEVEFOSCIANA", L) And Pr = "LU" Then CD = "G648": CP = "55036": PF = "0583"
If LC = Left("PIEVELIGURE", L) And Pr = "GE" Then CD = "G646": CP = "16030": PF = "0185"
If LC = Left("PIEVEPELAGO", L) And Pr = "MO" Then CD = "G649": CP = "41027": PF = "0536"
If LC = Left("PIEVEPORTOMORONE", L) And Pr = "PV" Then CD = "G650": CP = "27017": PF = "0382"
If LC = Left("PIEVESANGIACOMO", L) And Pr = "CR" Then CD = "G651": CP = "26035": PF = "0372"
If LC = Left("PIEVESANTOSTEFANO", L) And Pr = "AR" Then CD = "G653": CP = "56036": PF = "0587"
If LC = Left("PIEVETESINO", L) And Pr = "TN" Then CD = "G656": CP = "38050": PF = "0461"
If LC = Left("PIEVETORINA", L) And Pr = "MC" Then CD = "G657": CP = "62036": PF = "0737"
If LC = Left("PIEVEVERGONTE", L) And Pr = "NO" Then CD = "G658": CP = "28020": PF = "035"
If LC = Left("PIGLIO", L) And Pr = "FR" Then CD = "G659": CP = "03010": PF = "0775"
If LC = Left("PIGNA", L) And Pr = "IM" Then CD = "G660": CP = "18037": PF = "0184"
If LC = Left("PIGNATAROINTERAMNA", L) And Pr = "FR" Then CD = "G662": CP = "03040": PF = "0776"
If LC = Left("PIGNATAROMAGGIORE", L) And Pr = "CE" Then CD = "G661": CP = "81052": PF = "0823"
If LC = Left("PIGNOLA", L) And Pr = "PZ" Then CD = "G663": CP = "85010": PF = "0971"
If LC = Left("PIGNONE", L) And Pr = "SP" Then CD = "G664": CP = "19020": PF = "0187"
If LC = Left("PIGRA", L) And Pr = "CO" Then CD = "G665": CP = "22020": PF = "0384"
If LC = Left("PILA", L) And Pr = "VC" Then CD = "G666": CP = "13020": PF = "0163"
If LC = Left("PIMENTEL", L) And Pr = "CA" Then CD = "G669": CP = "09020": PF = "070"
If LC = Left("PIMONTE", L) And Pr = "NA" Then CD = "G670": CP = "80050": PF = "081"
If LC = Left("PINAROLOPO", L) And Pr = "PV" Then CD = "G671": CP = "27040": PF = "0385"
If LC = Left("PINASCA", L) And Pr = "TO" Then CD = "G672": CP = "10060": PF = "011"
If LC = Left("PINCARA", L) And Pr = "RO" Then CD = "G673": CP = "45020": PF = "0425"
If LC = Left("PINEROLO", L) And Pr = "TO" Then CD = "G674": CP = "10064": PF = "0121"
If LC = Left("PINETO", L) And Pr = "TE" Then CD = "F831": CP = "64025": PF = "085"
If LC = Left("PINODASTI", L) And Pr = "AT" Then CD = "G676": CP = "14020": PF = "0141"
If LC = Left("PINOSULLASPONDALA", L) And Pr = "VA" Then CD = "G677": CP = "21010": PF = "0332"
If LC = Left("PINOTORINESE", L) And Pr = "TO" Then CD = "G678": CP = "10025": PF = "011"
If LC = Left("PINZANOALTAGLIAMEN", L) And Pr = "PN" Then CD = "G680": CP = "33094": PF = "0432"
If LC = Left("PINZOLO", L) And Pr = "TN" Then CD = "G681": CP = "38086": PF = "0465"
If LC = Left("PIOBBICO", L) And Pr = "PS" Then CD = "G682": CP = "61046": PF = "0722"
If LC = Left("PIOBESIDALBA", L) And Pr = "CN" Then CD = "G683": CP = "12040": PF = "0173"
If LC = Left("PIOBESITORINESE", L) And Pr = "TO" Then CD = "G684": CP = "10040": PF = "011"
If LC = Left("PIODE", L) And Pr = "VC" Then CD = "G685": CP = "13020": PF = "0163"
If LC = Left("PIOLTELLO", L) And Pr = "MI" Then CD = "G686": CP = "20096": PF = "02"
If LC = Left("PIOMBINO", L) And Pr = "LI" Then CD = "G687": CP = "57025": PF = "0565"
If LC = Left("PIOMBINODESE", L) And Pr = "PD" Then CD = "G688": CP = "35017": PF = "049"
If LC = Left("PIORACO", L) And Pr = "MC" Then CD = "G690": CP = "62025": PF = "0737"
If LC = Left("PIOSSASCO", L) And Pr = "TO" Then CD = "G691": CP = "10045": PF = "011"
If LC = Left("PIOVAMASSAIA", L) And Pr = "AT" Then CD = "G692": CP = "14020": PF = "0141"
If LC = Left("PIOVEDISACCO", L) And Pr = "PD" Then CD = "G693": CP = "35028": PF = "049"
If LC = Left("PIOVENEROCCHETTE", L) And Pr = "VI" Then CD = "G694": CP = "36013": PF = "0445"
If LC = Left("PIOVERA", L) And Pr = "AL" Then CD = "G695": CP = "15040": PF = "0142"
If LC = Left("PIOZZANO", L) And Pr = "PC" Then CD = "G696": CP = "29010": PF = "0523"
If LC = Left("PIOZZO", L) And Pr = "CN" Then CD = "G697": CP = "12060": PF = "Rivalta"
If LC = Left("PIRAINO", L) And Pr = "ME" Then CD = "G699": CP = "98060": PF = "0941"
If LC = Left("PISA", L) And Pr = "PI" Then CD = "G702": CP = "56100": PF = "050"
If LC = Left("PISANO", L) And Pr = "NO" Then CD = "G703": CP = "28010": PF = "0323"
If LC = Left("PISCINA", L) And Pr = "TO" Then CD = "G705": CP = "10060": PF = "011"
If LC = Left("PISCIOTTA", L) And Pr = "SA" Then CD = "G707": CP = "84066": PF = "0974"
If LC = Left("PISOGNE", L) And Pr = "BS" Then CD = "G710": CP = "25055": PF = "0364"
If LC = Left("PISONIANO", L) And Pr = "RM" Then CD = "G704": CP = "00020": PF = "0774"
If LC = Left("PISTICCI", L) And Pr = "MT" Then CD = "G712": CP = "75015": PF = "0835"
If LC = Left("PISTOIA", L) And Pr = "PT" Then CD = "G713": CP = "51100": PF = "0573"
If LC = Left("PISTOLESA", L) And Pr = "VC" Then CD = "G714": CP = "13054": PF = "015"
If LC = Left("PITCAIRN", L) And Pr = "EE" Then CD = "Z722": CP = "": PF = ""
If LC = Left("PITEGLIO", L) And Pr = "PT" Then CD = "G715": CP = "51020": PF = "0573"
If LC = Left("PITIGLIANO", L) And Pr = "GR" Then CD = "G716": CP = "58017": PF = "0564"
If LC = Left("PIUBEGA", L) And Pr = "MN" Then CD = "G717": CP = "46040": PF = "0376"
If LC = Left("PIURO", L) And Pr = "SO" Then CD = "G718": CP = "23020": PF = "0343"
If LC = Left("PIVERONE", L) And Pr = "TO" Then CD = "G719": CP = "10010": PF = "011"
If LC = Left("PIZZALE", L) And Pr = "PV" Then CD = "G720": CP = "27050": PF = "0385"
If LC = Left("PIZZIGHETTONE", L) And Pr = "CR" Then CD = "G721": CP = "26026": PF = "0372"
If LC = Left("PIZZO", L) And Pr = "CZ" Then CD = "G722": CP = "88026": PF = "0963"
If LC = Left("PIZZOFERRATO", L) And Pr = "CH" Then CD = "G724": CP = "66040": PF = "0873"
If LC = Left("PIZZOLI", L) And Pr = "AQ" Then CD = "G726": CP = "67017": PF = "0862"
If LC = Left("PIZZONE", L) And Pr = "IS" Then CD = "G727": CP = "86076": PF = "0865"
If LC = Left("PIZZONI", L) And Pr = "CZ" Then CD = "G728": CP = "88010": PF = "0966"
If LC = Left("PLACANICA", L) And Pr = "RC" Then CD = "G729": CP = "89040": PF = "0964"
If LC = Left("PLATACI", L) And Pr = "CS" Then CD = "G733": CP = "87070": PF = "0981"
If LC = Left("PLATANIA", L) And Pr = "CZ" Then CD = "G734": CP = "88040": PF = "0968"
If LC = Left("PLATI", L) And Pr = "RC" Then CD = "G735": CP = "89039": PF = "0964"
If LC = Left("PLAUS", L) And Pr = "BZ" Then CD = "G299": CP = "39025": PF = "0473"
If LC = Left("PLESIO", L) And Pr = "CO" Then CD = "G737": CP = "22010": PF = "0344"
If LC = Left("PLOAGHE", L) And Pr = "SS" Then CD = "G740": CP = "07017": PF = "0773"
If LC = Left("PLODIO", L) And Pr = "SV" Then CD = "G741": CP = "17043": PF = "019"
If LC = Left("POCAPAGLIA", L) And Pr = "CN" Then CD = "G742": CP = "12060": PF = "Rivalta"
If LC = Left("POCENIA", L) And Pr = "UD" Then CD = "G743": CP = "33050": PF = "0432"
If LC = Left("PODENZANA", L) And Pr = "MS" Then CD = "G746": CP = "54010": PF = "0187"
If LC = Left("PODENZANO", L) And Pr = "PC" Then CD = "G747": CP = "29027": PF = "0523"
If LC = Left("POFI", L) And Pr = "FR" Then CD = "G749": CP = "03026": PF = "0775"
If LC = Left("POGGIARDO", L) And Pr = "LE" Then CD = "G751": CP = "73037": PF = "0836"
If LC = Left("POGGIBONSI", L) And Pr = "SI" Then CD = "G752": CP = "53036": PF = "0577"
If LC = Left("POGGIOACAIANO", L) And Pr = "FI" Then CD = "G754": CP = "50046": PF = "055"
If LC = Left("POGGIOBERNI", L) And Pr = "FO" Then CD = "G755": CP = "47030": PF = "0541"
If LC = Left("POGGIOBUSTONE", L) And Pr = "RI" Then CD = "G756": CP = "02018": PF = "0746"
If LC = Left("POGGIOCATINO", L) And Pr = "RI" Then CD = "G757": CP = "02040": PF = "0746"
If LC = Left("POGGIODOMO", L) And Pr = "PG" Then CD = "G758": CP = "06040": PF = "0743"
If LC = Left("POGGIOFIORITO", L) And Pr = "CH" Then CD = "G760": CP = "66030": PF = "0872"
If LC = Left("POGGIOIMPERIALE", L) And Pr = "FG" Then CD = "G761": CP = "71010": PF = "0884"
If LC = Left("POGGIOMARINO", L) And Pr = "NA" Then CD = "G762": CP = "80040": PF = "081"
If LC = Left("POGGIOMIRTETO", L) And Pr = "RI" Then CD = "G763": CP = "02047": PF = "0765"
If LC = Left("POGGIOMOIANO", L) And Pr = "RI" Then CD = "G764": CP = "02037": PF = "0765"
If LC = Left("POGGIONATIVO", L) And Pr = "RI" Then CD = "G765": CP = "02030": PF = "0765"
If LC = Left("POGGIOPICENZE", L) And Pr = "AQ" Then CD = "G766": CP = "67026": PF = "0862"
If LC = Left("POGGIOREALE", L) And Pr = "TP" Then CD = "G767": CP = "91020": PF = "0924"
If LC = Left("POGGIORENATICO", L) And Pr = "FE" Then CD = "G768": CP = "44028": PF = "0532"
If LC = Left("POGGIORSINI", L) And Pr = "BA" Then CD = "G769": CP = "70020": PF = "080"
If LC = Left("POGGIORUSCO", L) And Pr = "MN" Then CD = "G753": CP = "46025": PF = "0386"
If LC = Left("POGGIOSANLORENZO", L) And Pr = "RI" Then CD = "G770": CP = "02030": PF = "0765"
If LC = Left("POGGIOSANMARCELLO", L) And Pr = "AN" Then CD = "G771": CP = "60030": PF = "0731"
If LC = Left("POGGIOSANNITA", L) And Pr = "IS" Then CD = "B317": CP = "86086": PF = "0865"
If LC = Left("POGGIOSANVICINO", L) And Pr = "MC" Then CD = "D566": CP = "62020": PF = "0737"
If LC = Left("POGGIRIDENTI", L) And Pr = "SO" Then CD = "G431": CP = "23020": PF = "0343"
If LC = Left("POGLIANOMILANESE", L) And Pr = "MI" Then CD = "G772": CP = "20010": PF = "081"
If LC = Left("POGNANALARIO", L) And Pr = "CO" Then CD = "G773": CP = "22020": PF = "0384"
If LC = Left("POGNANO", L) And Pr = "BG" Then CD = "G774": CP = "24040": PF = "0363"
If LC = Left("POGNO", L) And Pr = "NO" Then CD = "G775": CP = "28076": PF = "0163"
If LC = Left("POIANAMAGGIORE", L) And Pr = "VI" Then CD = "G776": CP = "36026": PF = "0444"
If LC = Left("POIRINO", L) And Pr = "TO" Then CD = "G777": CP = "10046": PF = "011"
If LC = Left("POLAVENO", L) And Pr = "BS" Then CD = "G779": CP = "25060": PF = "030"
If LC = Left("POLCENIGO", L) And Pr = "PN" Then CD = "G780": CP = "33070": PF = "0434"
If LC = Left("POLESELLA", L) And Pr = "RO" Then CD = "G782": CP = "45038": PF = "0425"
If LC = Left("POLESINEPARMENSE", L) And Pr = "PR" Then CD = "G783": CP = "43010": PF = "0524"
If LC = Left("POLI", L) And Pr = "RM" Then CD = "G784": CP = "00010": PF = "06"
If LC = Left("POLIA", L) And Pr = "CZ" Then CD = "G785": CP = "88027": PF = "0963"
If LC = Left("POLICORO", L) And Pr = "MT" Then CD = "G786": CP = "75025": PF = "0835"
If LC = Left("POLIGNANOAMARE", L) And Pr = "BA" Then CD = "G787": CP = "70044": PF = "080"
If LC = Left("POLINAGO", L) And Pr = "MO" Then CD = "G789": CP = "41040": PF = "0536"
If LC = Left("POLINESIA", L) And Pr = "EE" Then CD = "Z723": CP = "": PF = ""
If LC = Left("POLINO", L) And Pr = "TR" Then CD = "G790": CP = "05030": PF = "0744"
If LC = Left("POLISTENA", L) And Pr = "RC" Then CD = "G791": CP = "89024": PF = "0966"
If LC = Left("POLIZZIGENEROSA", L) And Pr = "PA" Then CD = "G792": CP = "90028": PF = "0921"
If LC = Left("POLLA", L) And Pr = "SA" Then CD = "G793": CP = "84035": PF = "0975"
If LC = Left("POLLEIN", L) And Pr = "AO" Then CD = "G794": CP = "11020": PF = "0166"
If LC = Left("POLLENATROCCHIA", L) And Pr = "NA" Then CD = "G795": CP = "80040": PF = "081"
If LC = Left("POLLENZA", L) And Pr = "MC" Then CD = "F567": CP = "62010": PF = "0733"
If LC = Left("POLLICA", L) And Pr = "SA" Then CD = "G796": CP = "84068": PF = "0974"
If LC = Left("POLLINA", L) And Pr = "PA" Then CD = "G797": CP = "90010": PF = "0921"
If LC = Left("POLLONE", L) And Pr = "VC" Then CD = "G798": CP = "13057": PF = "015"
If LC = Left("POLLUTRI", L) And Pr = "CH" Then CD = "G799": CP = "66020": PF = "0873"
If LC = Left("POLONGHERA", L) And Pr = "CN" Then CD = "G800": CP = "12030": PF = "0175"
If LC = Left("POLONIA", L) And Pr = "EE" Then CD = "Z127": CP = "": PF = ""
If LC = Left("POLPENAZZEDELGARDA", L) And Pr = "BS" Then CD = "G801": CP = "25080": PF = "0365"
If LC = Left("POLVERARA", L) And Pr = "PD" Then CD = "G802": CP = "35020": PF = "049"
If LC = Left("POLVERIGI", L) And Pr = "AN" Then CD = "G803": CP = "60020": PF = "0971"
If LC = Left("POMARANCE", L) And Pr = "PI" Then CD = "G804": CP = "56045": PF = "0588"
If LC = Left("POMARETTO", L) And Pr = "TO" Then CD = "G805": CP = "10063": PF = "0121"
If LC = Left("POMARICO", L) And Pr = "MT" Then CD = "G806": CP = "75016": PF = "0835"
If LC = Left("POMAROLO", L) And Pr = "TN" Then CD = "G808": CP = "38060": PF = "0464"
If LC = Left("POMAROMONFERRATO", L) And Pr = "AL" Then CD = "G807": CP = "15040": PF = "0142"
If LC = Left("POMBIA", L) And Pr = "NO" Then CD = "G809": CP = "28050": PF = "0323"
If LC = Left("POMEZIA", L) And Pr = "RM" Then CD = "G811": CP = "00040": PF = "06"
If LC = Left("POMIGLIANODARCO", L) And Pr = "NA" Then CD = "G812": CP = "80038": PF = "081"
If LC = Left("POMPEI", L) And Pr = "NA" Then CD = "G813": CP = "80045": PF = "081"
If LC = Left("POMPEIANA", L) And Pr = "IM" Then CD = "G814": CP = "18015": PF = "0184"
If LC = Left("POMPIANO", L) And Pr = "BS" Then CD = "G815": CP = "25030": PF = "035"
If LC = Left("POMPONESCO", L) And Pr = "MN" Then CD = "G816": CP = "46030": PF = "0386"
If LC = Left("POMPU", L) And Pr = "OR" Then CD = "G817": CP = "09095": PF = "0783"
If LC = Left("PONCARALE", L) And Pr = "BS" Then CD = "G818": CP = "25020": PF = "030"
If LC = Left("PONDERANO", L) And Pr = "VC" Then CD = "G820": CP = "13058": PF = "015"
If LC = Left("PONNA", L) And Pr = "CO" Then CD = "G821": CP = "22020": PF = "0384"
If LC = Left("PONSACCO", L) And Pr = "PI" Then CD = "G822": CP = "56038": PF = "0587"
If LC = Left("PONSO", L) And Pr = "PD" Then CD = "G823": CP = "35040": PF = "0429"
If LC = Left("PONTASSIEVE", L) And Pr = "FI" Then CD = "G825": CP = "50065": PF = "055"
If LC = Left("PONTBOZET", L) And Pr = "AO" Then CD = "G545": CP = "11020": PF = "0166"
If LC = Left("PONTCANAVESE", L) And Pr = "TO" Then CD = "G826": CP = "10085": PF = "0124"
If LC = Left("PONTE", L) And Pr = "BN" Then CD = "G827": CP = "82030": PF = "0824"
If LC = Left("PONTEBBA", L) And Pr = "UD" Then CD = "G831": CP = "33016": PF = "0428"
If LC = Left("PONTEBUGGIANESE", L) And Pr = "PT" Then CD = "G832": CP = "51019": PF = "0572"
If LC = Left("PONTECAGNANOFAIANO", L) And Pr = "SA" Then CD = "G834": CP = "84089": PF = "081"
If LC = Left("PONTECCHIOPOLESINE", L) And Pr = "RO" Then CD = "G836": CP = "45030": PF = "0425"
If LC = Left("PONTECHIANALE", L) And Pr = "CN" Then CD = "G837": CP = "12020": PF = "0175"
If LC = Left("PONTECORVO", L) And Pr = "FR" Then CD = "G838": CP = "03037": PF = "0776"
If LC = Left("PONTECURONE", L) And Pr = "AL" Then CD = "G839": CP = "15055": PF = "0131"
If LC = Left("PONTEDASSIO", L) And Pr = "IM" Then CD = "G840": CP = "18027": PF = "0183"
If LC = Left("PONTEDELLOLIO", L) And Pr = "PC" Then CD = "G842": CP = "29028": PF = "0523"
If LC = Left("PONTEDERA", L) And Pr = "PI" Then CD = "G843": CP = "56025": PF = "0587"
If LC = Left("PONTEDILEGNO", L) And Pr = "BS" Then CD = "G844": CP = "25056": PF = "0364"
If LC = Left("PONTEDIPIAVE", L) And Pr = "TV" Then CD = "G846": CP = "31047": PF = "0422"
If LC = Left("PONTEGARDENA", L) And Pr = "BZ" Then CD = "G830": CP = "39040": PF = "0472"
If LC = Left("PONTEINVALTELLINA", L) And Pr = "SO" Then CD = "G829": CP = "23026": PF = "0342"
If LC = Left("PONTELAMBRO", L) And Pr = "CO" Then CD = "G847": CP = "22037": PF = "031"
If LC = Left("PONTELANDOLFO", L) And Pr = "BN" Then CD = "G848": CP = "82027": PF = "0824"
If LC = Left("PONTELATONE", L) And Pr = "CE" Then CD = "G849": CP = "81050": PF = "0823"
If LC = Left("PONTELONGO", L) And Pr = "PD" Then CD = "G850": CP = "35029": PF = "049"
If LC = Left("PONTENELLEALPI", L) And Pr = "BL" Then CD = "B662": CP = "32014": PF = "0437"
If LC = Left("PONTENIZZA", L) And Pr = "PV" Then CD = "G851": CP = "27050": PF = "0385"
If LC = Left("PONTENOSSA", L) And Pr = "BG" Then CD = "F941": CP = "24028": PF = "035"
If LC = Left("PONTENURE", L) And Pr = "PC" Then CD = "G852": CP = "29010": PF = "0523"
If LC = Left("PONTERANICA", L) And Pr = "BG" Then CD = "G853": CP = "24010": PF = "035"
If LC = Left("PONTESANNICOLO", L) And Pr = "PD" Then CD = "G855": CP = "35020": PF = "049"
If LC = Left("PONTESANPIETRO", L) And Pr = "BG" Then CD = "G856": CP = "24036": PF = "035"
If LC = Left("PONTESTURA", L) And Pr = "AL" Then CD = "G858": CP = "15027": PF = "0142"
If LC = Left("PONTEVICO", L) And Pr = "BS" Then CD = "G859": CP = "25026": PF = "030"
If LC = Left("PONTEY", L) And Pr = "AO" Then CD = "G860": CP = "11024": PF = "0166"
If LC = Left("PONTI", L) And Pr = "AL" Then CD = "G861": CP = "15010": PF = "019"
If LC = Left("PONTIDA", L) And Pr = "BG" Then CD = "G864": CP = "24030": PF = "035"
If LC = Left("PONTINIA", L) And Pr = "LT" Then CD = "G865": CP = "04014": PF = "0363"
If LC = Left("PONTINVREA", L) And Pr = "SV" Then CD = "G866": CP = "17040": PF = "019"
If LC = Left("PONTIROLONUOVO", L) And Pr = "BG" Then CD = "G867": CP = "24040": PF = "0363"
If LC = Left("PONTISULMINCIO", L) And Pr = "MN" Then CD = "G862": CP = "46040": PF = "0376"
If LC = Left("PONTOGLIO", L) And Pr = "BS" Then CD = "G869": CP = "25037": PF = "0376"
If LC = Left("PONTREMOLI", L) And Pr = "MS" Then CD = "G870": CP = "54027": PF = "0187"
If LC = Left("PONTSAINTMARTIN", L) And Pr = "AO" Then CD = "G854": CP = "11026": PF = "0125"
If LC = Left("PONZA", L) And Pr = "LT" Then CD = "G871": CP = "04027": PF = "0771"
If LC = Left("PONZANODIFERMO", L) And Pr = "AP" Then CD = "G873": CP = "63020": PF = "0734"
If LC = Left("PONZANOMONFERRATO", L) And Pr = "AL" Then CD = "G872": CP = "15020": PF = "0142"
If LC = Left("PONZANOROMANO", L) And Pr = "RM" Then CD = "G874": CP = "00060": PF = "06"
If LC = Left("PONZANOVENETO", L) And Pr = "TV" Then CD = "G875": CP = "31050": PF = "0438"
If LC = Left("PONZONE", L) And Pr = "AL" Then CD = "G877": CP = "15010": PF = "019"
If LC = Left("POPOLI", L) And Pr = "PE" Then CD = "G878": CP = "65026": PF = "085"
If LC = Left("POPPI", L) And Pr = "AR" Then CD = "G879": CP = "52014": PF = "0575"
If LC = Left("PORANO", L) And Pr = "TR" Then CD = "G881": CP = "05010": PF = "075"
If LC = Left("PORCARI", L) And Pr = "LU" Then CD = "G882": CP = "55016": PF = "0583"
If LC = Left("PORCIA", L) And Pr = "PN" Then CD = "G886": CP = "33080": PF = "0434"
If LC = Left("PORDENONE", L) And Pr = "PN" Then CD = "G888": CP = "33170": PF = "0434"
If LC = Left("PORLEZZA", L) And Pr = "CO" Then CD = "G889": CP = "22018": PF = "0344"
If LC = Left("PORNASSIO", L) And Pr = "IM" Then CD = "G890": CP = "18020": PF = "0196"
If LC = Left("PORPETTO", L) And Pr = "UD" Then CD = "G891": CP = "33050": PF = "0432"
If LC = Left("PORRETTATERME", L) And Pr = "BO" Then CD = "A558": CP = "40046": PF = "0534"
If LC = Left("PORTACOMARO", L) And Pr = "AT" Then CD = "G894": CP = "14037": PF = "0141"
If LC = Left("PORTALBERA", L) And Pr = "PV" Then CD = "G895": CP = "27040": PF = "0385"
If LC = Left("PORTE", L) And Pr = "TO" Then CD = "G900": CP = "10060": PF = "011"
If LC = Left("PORTICI", L) And Pr = "NA" Then CD = "G902": CP = "80055": PF = "081"
If LC = Left("PORTICODICASERTA", L) And Pr = "CE" Then CD = "G903": CP = "81050": PF = "0823"
If LC = Left("PORTICOESANBENEDE", L) And Pr = "FO" Then CD = "G904": CP = "47010": PF = "0543"
If LC = Left("PORTIGLIOLA", L) And Pr = "RC" Then CD = "G905": CP = "89040": PF = "0964"
If LC = Left("PORTOAZZURRO", L) And Pr = "LI" Then CD = "E680": CP = "57036": PF = "0565"
If LC = Left("PORTOBUFFOLE", L) And Pr = "TV" Then CD = "G909": CP = "31019": PF = "0422"
If LC = Left("PORTOCANNONE", L) And Pr = "CB" Then CD = "G910": CP = "86045": PF = "0875"
If LC = Left("PORTOCERESIO", L) And Pr = "VA" Then CD = "G906": CP = "21050": PF = "0332"
If LC = Left("PORTOCESAREO", L) And Pr = "LE" Then CD = "G000": CP = "73010": PF = "0836"
If LC = Left("PORTOEMPEDOCLE", L) And Pr = "AG" Then CD = "F299": CP = "92014": PF = "0922"
If LC = Left("PORTOFERRAIO", L) And Pr = "LI" Then CD = "G912": CP = "57037": PF = "0565"
If LC = Left("PORTOFINO", L) And Pr = "GE" Then CD = "G913": CP = "16034": PF = "0185"
If LC = Left("PORTOGALLO", L) And Pr = "EE" Then CD = "Z128": CP = "": PF = ""
If LC = Left("PORTOGRUARO", L) And Pr = "VE" Then CD = "G914": CP = "30026": PF = "0421"
If LC = Left("PORTOMAGGIORE", L) And Pr = "FE" Then CD = "G916": CP = "44015": PF = "0532"
If LC = Left("PORTOMANTOVANO", L) And Pr = "MN" Then CD = "G917": CP = "46047": PF = "0376"
If LC = Left("PORTOPALODICAPOPA", L) And Pr = "SR" Then CD = "G000": CP = "96010": PF = "0931"
If LC = Left("PORTORECANATI", L) And Pr = "MC" Then CD = "G919": CP = "62017": PF = "071"
If LC = Left("PORTOSANGIORGIO", L) And Pr = "AP" Then CD = "G920": CP = "63017": PF = "0734"
If LC = Left("PORTOSANTELPIDIO", L) And Pr = "AP" Then CD = "G921": CP = "63018": PF = "0734"
If LC = Left("PORTOSCUSO", L) And Pr = "CA" Then CD = "G922": CP = "09010": PF = "070"
If LC = Left("PORTOTOLLE", L) And Pr = "RO" Then CD = "G923": CP = "45018": PF = "0426"
If LC = Left("PORTOTORRES", L) And Pr = "SS" Then CD = "G924": CP = "07046": PF = "079"
If LC = Left("PORTOVALTRAVAGLIA", L) And Pr = "VA" Then CD = "G907": CP = "21010": PF = "0332"
If LC = Left("PORTOVENERE", L) And Pr = "SP" Then CD = "G925": CP = "19025": PF = "0187"
If LC = Left("PORTULA", L) And Pr = "VC" Then CD = "G927": CP = "13050": PF = "015"
If LC = Left("POSADA", L) And Pr = "NU" Then CD = "G929": CP = "08020": PF = "0437"
If LC = Left("POSINA", L) And Pr = "VI" Then CD = "G931": CP = "36010": PF = "0784"
If LC = Left("POSITANO", L) And Pr = "SA" Then CD = "G932": CP = "84017": PF = "089"
If LC = Left("POSSAGNO", L) And Pr = "TV" Then CD = "G933": CP = "31054": PF = "0423"
If LC = Left("POSTA", L) And Pr = "RI" Then CD = "G934": CP = "02019": PF = "0746"
If LC = Left("POSTAFIBRENO", L) And Pr = "FR" Then CD = "G935": CP = "03030": PF = "0776"
If LC = Left("POSTAL", L) And Pr = "BZ" Then CD = "G936": CP = "39014": PF = "0473"
If LC = Left("POSTALESIO", L) And Pr = "SO" Then CD = "G937": CP = "23010": PF = "0342"
If LC = Left("POSTIGLIONE", L) And Pr = "SA" Then CD = "G939": CP = "84026": PF = "0828"
If LC = Left("POSTUA", L) And Pr = "VC" Then CD = "G940": CP = "13010": PF = "0163"
If LC = Left("POTENZA", L) And Pr = "PZ" Then CD = "G942": CP = "85100": PF = "0971"
If LC = Left("POTENZAPICENA", L) And Pr = "MC" Then CD = "F632": CP = "62018": PF = "0733"
If LC = Left("POVEDELGRAPPA", L) And Pr = "VI" Then CD = "G943": CP = "36020": PF = "0444"
If LC = Left("POVEGLIANO", L) And Pr = "TV" Then CD = "G944": CP = "31050": PF = "0438"
If LC = Left("POVEGLIANOVERONESE", L) And Pr = "VR" Then CD = "G945": CP = "37064": PF = "045"
If LC = Left("POVIGLIO", L) And Pr = "RE" Then CD = "G947": CP = "42028": PF = "0522"
If LC = Left("POVOLETTO", L) And Pr = "UD" Then CD = "G949": CP = "33040": PF = "0432"
If LC = Left("POZZADIFASSA", L) And Pr = "TN" Then CD = "G950": CP = "38036": PF = "0462"
If LC = Left("POZZAGLIASABINO", L) And Pr = "RI" Then CD = "G951": CP = "02030": PF = "0765"
If LC = Left("POZZAGLIOEDUNITI", L) And Pr = "CR" Then CD = "B914": CP = "26010": PF = "0374"
If LC = Left("POZZALLO", L) And Pr = "RG" Then CD = "G953": CP = "97016": PF = "0932"
If LC = Left("POZZILI", L) And Pr = "IS" Then CD = "G954": CP = "86077": PF = "0865"
If LC = Left("POZZODADDA", L) And Pr = "MI" Then CD = "G955": CP = "20069": PF = "02"
If LC = Left("POZZOLENGO", L) And Pr = "BS" Then CD = "G959": CP = "25010": PF = "0365"
If LC = Left("POZZOLEONE", L) And Pr = "VI" Then CD = "G957": CP = "36050": PF = "0444"
If LC = Left("POZZOLGROPPO", L) And Pr = "AL" Then CD = "G960": CP = "15050": PF = "0131"
If LC = Left("POZZOLOFORMIGARO", L) And Pr = "AL" Then CD = "G961": CP = "15068": PF = "0143"
If LC = Left("POZZOMAGGIORE", L) And Pr = "SS" Then CD = "G962": CP = "07018": PF = "079"
If LC = Left("POZZONOVO", L) And Pr = "PD" Then CD = "G963": CP = "35020": PF = "049"
If LC = Left("POZZUOLI", L) And Pr = "NA" Then CD = "G964": CP = "80078": PF = "081"
If LC = Left("POZZUOLODELFRIULI", L) And Pr = "UD" Then CD = "G966": CP = "33050": PF = "0432"
If LC = Left("POZZUOLOMARTESANA", L) And Pr = "MI" Then CD = "G965": CP = "20060": PF = "0984"
If LC = Left("PRADALUNGA", L) And Pr = "BG" Then CD = "G968": CP = "24020": PF = "0835"
If LC = Left("PRADAMANO", L) And Pr = "UD" Then CD = "G969": CP = "33040": PF = "0432"
If LC = Left("PRADLEVES", L) And Pr = "CN" Then CD = "G970": CP = "12027": PF = "0171"
If LC = Left("PRAGELATO", L) And Pr = "TO" Then CD = "G973": CP = "10060": PF = "011"
If LC = Left("PRAIAAMARE", L) And Pr = "CS" Then CD = "G975": CP = "87028": PF = "0985"
If LC = Left("PRAIANO", L) And Pr = "SA" Then CD = "G976": CP = "84010": PF = "089"
If LC = Left("PRALBOINO", L) And Pr = "BS" Then CD = "G977": CP = "25020": PF = "030"
If LC = Left("PRALI", L) And Pr = "TO" Then CD = "G978": CP = "10060": PF = "011"
If LC = Left("PRALORMO", L) And Pr = "TO" Then CD = "G979": CP = "10040": PF = "011"
If LC = Left("PRALUNGO", L) And Pr = "VC" Then CD = "G980": CP = "13050": PF = "015"
If LC = Left("PRAMAGGIORE", L) And Pr = "VE" Then CD = "G981": CP = "30020": PF = "091"
If LC = Left("PRAMOLLO", L) And Pr = "TO" Then CD = "G982": CP = "10065": PF = "0121"
If LC = Left("PRAROLO", L) And Pr = "VC" Then CD = "G985": CP = "13010": PF = "0163"
If LC = Left("PRAROSTINO", L) And Pr = "TO" Then CD = "G986": CP = "10060": PF = "011"
If LC = Left("PRASCO", L) And Pr = "AL" Then CD = "G987": CP = "15010": PF = "019"
If LC = Left("PRASCORSANO", L) And Pr = "TO" Then CD = "G988": CP = "10080": PF = "011"
If LC = Left("PRASO", L) And Pr = "TN" Then CD = "G980": CP = "38080": PF = "0465"
If LC = Left("PRATACAMPORTACCIO", L) And Pr = "SO" Then CD = "G993": CP = "23020": PF = "0343"
If LC = Left("PRATADANSIDONIA", L) And Pr = "AQ" Then CD = "G992": CP = "67020": PF = "0864"
If LC = Left("PRATADIPORDENONE", L) And Pr = "PN" Then CD = "G994": CP = "33080": PF = "0434"
If LC = Left("PRATADIPRINCIPATO", L) And Pr = "AV" Then CD = "G990": CP = "83030": PF = "0827"
If LC = Left("PRATELLA", L) And Pr = "CE" Then CD = "G995": CP = "81010": PF = "0823"
If LC = Left("PRATIGLIONE", L) And Pr = "TO" Then CD = "G997": CP = "10080": PF = "011"
If LC = Left("PRATO", L) And Pr = "FI" Then CD = "G999": CP = "50047": PF = "0574"
If LC = Left("PRATOALLOSTELVIO", L) And Pr = "BZ" Then CD = "H004": CP = "39026": PF = "0473"
If LC = Left("PRATOCARNICO", L) And Pr = "UD" Then CD = "H002": CP = "33020": PF = "0433"
If LC = Left("PRATOLAPELIGNA", L) And Pr = "AQ" Then CD = "H007": CP = "67035": PF = "0864"
If LC = Left("PRATOLASERRA", L) And Pr = "AV" Then CD = "H006": CP = "83039": PF = "0825"
If LC = Left("PRATOSANNITA", L) And Pr = "CE" Then CD = "G991": CP = "81010": PF = "0823"
If LC = Left("PRATOSESIA", L) And Pr = "NO" Then CD = "H001": CP = "28077": PF = "0163"
If LC = Left("PRATOVECCHIO", L) And Pr = "AR" Then CD = "H008": CP = "52015": PF = "0575"
If LC = Left("PRAVISDOMINI", L) And Pr = "PN" Then CD = "H010": CP = "33076": PF = "0434"
If LC = Left("PRAY", L) And Pr = "VC" Then CD = "G974": CP = "13016": PF = "015"
If LC = Left("PRAZZO", L) And Pr = "CN" Then CD = "H011": CP = "12028": PF = "0171"
If LC = Left("PRECENICCO", L) And Pr = "UD" Then CD = "H014": CP = "33050": PF = "0432"
If LC = Left("PRECI", L) And Pr = "PG" Then CD = "H015": CP = "06047": PF = "0743"
If LC = Left("PREDAPPIO", L) And Pr = "FO" Then CD = "H017": CP = "47016": PF = "0543"
If LC = Left("PREDAZZO", L) And Pr = "TN" Then CD = "H018": CP = "38037": PF = "0462"
If LC = Left("PREDOI", L) And Pr = "BZ" Then CD = "H019": CP = "39030": PF = "0474"
If LC = Left("PREDORE", L) And Pr = "BG" Then CD = "H020": CP = "24060": PF = "035"
If LC = Left("PREDOSA", L) And Pr = "AL" Then CD = "H021": CP = "15077": PF = "0131"
If LC = Left("PREGANZIOL", L) And Pr = "TV" Then CD = "H022": CP = "31022": PF = "0422"
If LC = Left("PREGNANAMILANESE", L) And Pr = "MI" Then CD = "H026": CP = "20010": PF = "081"
If LC = Left("PRELA", L) And Pr = "IM" Then CD = "H027": CP = "18020": PF = "0196"
If LC = Left("PREMANA", L) And Pr = "CO" Then CD = "H028": CP = "22050": PF = "039"
If LC = Left("PREMARIACCO", L) And Pr = "UD" Then CD = "H029": CP = "33040": PF = "0432"
If LC = Left("PREMENO", L) And Pr = "NO" Then CD = "H030": CP = "28057": PF = "0323"
If LC = Left("PREMIA", L) And Pr = "NO" Then CD = "H033": CP = "28030": PF = "0324"
If LC = Left("PREMILCUORE", L) And Pr = "FO" Then CD = "H034": CP = "47010": PF = "0543"
If LC = Left("PREMOLO", L) And Pr = "BG" Then CD = "H036": CP = "24028": PF = "035"
If LC = Left("PREMOSELLOCHIOVENDA", L) And Pr = "NO" Then CD = "H037": CP = "28020": PF = "035"
If LC = Left("PREONE", L) And Pr = "UD" Then CD = "H038": CP = "33020": PF = "0433"
If LC = Left("PREORE", L) And Pr = "TN" Then CD = "H039": CP = "38070": PF = "0465"
If LC = Left("PREPOTTO", L) And Pr = "UD" Then CD = "H040": CP = "33040": PF = "0432"
If LC = Left("PRESAINTDIDIER", L) And Pr = "AO" Then CD = "H042": CP = "11010": PF = "0165"
If LC = Left("PRESEGLIE", L) And Pr = "BS" Then CD = "H043": CP = "25070": PF = "0365"
If LC = Left("PRESENZANO", L) And Pr = "CE" Then CD = "H045": CP = "81050": PF = "0823"
If LC = Left("PRESEZZO", L) And Pr = "BG" Then CD = "H046": CP = "24030": PF = "035"
If LC = Left("PRESICCE", L) And Pr = "LE" Then CD = "H047": CP = "73054": PF = "0833"
If LC = Left("PRESSANA", L) And Pr = "VR" Then CD = "H048": CP = "37040": PF = "045"
If LC = Left("PRESTINE", L) And Pr = "BS" Then CD = "H050": CP = "25040": PF = "0364"
If LC = Left("PRETORO", L) And Pr = "CH" Then CD = "H052": CP = "66010": PF = "Pretoro"
If LC = Left("PREVALLE", L) And Pr = "BS" Then CD = "H055": CP = "25080": PF = "0365"
If LC = Left("PREZZA", L) And Pr = "AQ" Then CD = "H056": CP = "67030": PF = "0864"
If LC = Left("PREZZO", L) And Pr = "TN" Then CD = "H057": CP = "38085": PF = "0465"
If LC = Left("PRIERO", L) And Pr = "CN" Then CD = "H059": CP = "12070": PF = "0174"
If LC = Left("PRIGNANOCILENTO", L) And Pr = "SA" Then CD = "H062": CP = "84060": PF = "0974"
If LC = Left("PRIGNANOSULLASECCH", L) And Pr = "MO" Then CD = "H061": CP = "41048": PF = "0536"
If LC = Left("PRIMALUNA", L) And Pr = "CO" Then CD = "H063": CP = "22040": PF = "039"
If LC = Left("PRIOCCA", L) And Pr = "CN" Then CD = "H068": CP = "12040": PF = "0173"
If LC = Left("PRIOLA", L) And Pr = "CN" Then CD = "H069": CP = "12070": PF = "0174"
If LC = Left("PRIVERNO", L) And Pr = "LT" Then CD = "G698": CP = "04015": PF = "0773"
If LC = Left("PRIZZI", L) And Pr = "PA" Then CD = "H070": CP = "90038": PF = "091"
If LC = Left("PROCENO", L) And Pr = "VT" Then CD = "H071": CP = "01020": PF = "0761"
If LC = Left("PROCIDA", L) And Pr = "NA" Then CD = "H072": CP = "80079": PF = "081"
If LC = Left("PROPATA", L) And Pr = "GE" Then CD = "H073": CP = "16027": PF = "010"
If LC = Left("PROSERPIO", L) And Pr = "CO" Then CD = "H074": CP = "22030": PF = "031"
If LC = Left("PROSSEDI", L) And Pr = "LT" Then CD = "H076": CP = "04010": PF = "06"
If LC = Left("PROTARABIAMERID", L) And Pr = "EE" Then CD = "Z202": CP = "": PF = ""
If LC = Left("PROVAGLIODISEO", L) And Pr = "BS" Then CD = "H078": CP = "25020": PF = "030"
If LC = Left("PROVAGLIOVALSABBIA", L) And Pr = "BS" Then CD = "H077": CP = "25070": PF = "0365"
If LC = Left("PROVES", L) And Pr = "BZ" Then CD = "H081": CP = "39040": PF = "0472"
If LC = Left("PROVVIDENTI", L) And Pr = "CB" Then CD = "H083": CP = "86040": PF = "0874"
If LC = Left("PRUNETTO", L) And Pr = "CN" Then CD = "H085": CP = "12070": PF = "0174"
If LC = Left("PUEGNAGOSULGARDA", L) And Pr = "BS" Then CD = "H086": CP = "25080": PF = "0365"
If LC = Left("PUERTORICO", L) And Pr = "EE" Then CD = "Z518": CP = "": PF = ""
If LC = Left("PUGLIANELLO", L) And Pr = "BN" Then CD = "H087": CP = "82030": PF = "0824"
If LC = Left("PULA", L) And Pr = "CA" Then CD = "H088": CP = "09010": PF = "070"
If LC = Left("PULFERO", L) And Pr = "UD" Then CD = "H089": CP = "33046": PF = "0432"
If LC = Left("PULSANO", L) And Pr = "TA" Then CD = "H090": CP = "74026": PF = "099"
If LC = Left("PUMENENGO", L) And Pr = "BG" Then CD = "H091": CP = "24050": PF = "0363"
If LC = Left("PUOSDALPAGO", L) And Pr = "BL" Then CD = "H092": CP = "32015": PF = "0437"
If LC = Left("PUSIANO", L) And Pr = "CO" Then CD = "H094": CP = "22030": PF = "031"
If LC = Left("PUTIFIGARI", L) And Pr = "SS" Then CD = "H095": CP = "07040": PF = "079"
If LC = Left("PUTIGNANO", L) And Pr = "BA" Then CD = "H096": CP = "70017": PF = "080"
If LC = Left("QATAR", L) And Pr = "EE" Then CD = "Z237": CP = "": PF = ""
If LC = Left("QUADRELLE", L) And Pr = "AV" Then CD = "H097": CP = "83020": PF = "0825"
If LC = Left("QUADRI", L) And Pr = "CH" Then CD = "H098": CP = "66040": PF = "0873"
If LC = Left("QUAGLIANO", L) And Pr = "NA" Then CD = "H101": CP = "80019": PF = "081"
If LC = Left("QUAGLIUZZO", L) And Pr = "TO" Then CD = "H100": CP = "10010": PF = "011"
If LC = Left("QUARANTI", L) And Pr = "AT" Then CD = "H102": CP = "14040": PF = "0141"
If LC = Left("QUAREGNA", L) And Pr = "VC" Then CD = "H103": CP = "13010": PF = "0163"
If LC = Left("QUARGNENTO", L) And Pr = "AL" Then CD = "H104": CP = "15044": PF = "0131"
If LC = Left("QUARNASOPRA", L) And Pr = "NO" Then CD = "H106": CP = "28020": PF = "035"
If LC = Left("QUARNASOTTO", L) And Pr = "NO" Then CD = "H107": CP = "28020": PF = "035"
If LC = Left("QUARONA", L) And Pr = "VC" Then CD = "H108": CP = "13017": PF = "0163"
If LC = Left("QUARRATA", L) And Pr = "PT" Then CD = "H109": CP = "51039": PF = "0573"
If LC = Left("QUART", L) And Pr = "AO" Then CD = "H110": CP = "11020": PF = "0166"


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

End Function