Function ControCodice(TxtCodFis)
dim TempNum, i, AppoNum
'Controllo caratteri pari
TempNum = 0
i = 1
Do
' POSIZIONI DISPARI
AppoNum = InStr("B1A0K.P.L.C2Q.D3R.E4V.O.S.F5T.G6U.H7M.I8N.J 9W.Z.Y.X.", Mid(TxtCodFis, i, 1))
TempNum = TempNum + Int((AppoNum - 1) / 2)
i = i + 1
If i > 15 Then Exit Do
' POSIZIONI PARI
AppoNum = InStr("A0B1C2D3E4F5G6H7I8J9K.L.M.N.O.P.Q.R.S.T.U.V .W.X.Y.Z.", Mid(TxtCodFis, i, 1))
TempNum = TempNum + Int((AppoNum - 1) / 2)
i = i + 1
Loop
ControCodice = Chr((TempNum Mod 26) + 65)
End Function

Ho usato questa funzione, ma sbaglia....

if right(CodFiscale,1)) <> ControCodice(left(CodFiscale,15)) then errore = "MSG ERRORE"

provate........ e mi dite qualcosina??

grazie,
Giacomo