codice fiscalle: controllo

[verardoelvis]

Ciao ragazzi,
come posso fare un controllo su una text box che conterrà il codice fiscale? vorrei controllare che i primi 6 caratteri siano alfabetici, dal 6 all'8 l'anno e così via.
grazie ciao

[paw]

prova questa...

Public Function CheckCodiceFiscale(ByVal sz_Codice As String) As Integer
On Error GoTo err_function_CodFisc

'===== Ritorna
' 0 = Se il Codice Fiscale è Ok
' oppure il codice ascii corretto
'
Const ALF1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Const CIF1 = "0123456789"
Const ALF2 = "BAKPLCQDREVOSFTGUHMINJWZYX"
Const CIF2 = "10 2 3 4 5 6 7 8 9 "
Dim c_Char As String * 1
Dim c_Code As String * 1
Dim n_Count As Integer
Dim lcv As Integer

sz_Codice = Left(UCase(sz_Codice) + Space(16), 16)

For lcv = 2 To 14 Step 2

c_Char = Mid$(sz_Codice, lcv, 1)

Select Case c_Char
Case "0" To "9"
n_Count = n_Count + InStr(CIF1, c_Char)
Case "A" To "Z"
n_Count = n_Count + InStr(ALF1, c_Char)
End Select

Next lcv

For lcv = 1 To 15 Step 2

c_Char = Mid$(sz_Codice, lcv, 1)

Select Case c_Char
Case "0" To "9"
n_Count = n_Count + InStr(CIF2, c_Char)
Case "A" To "Z"
n_Count = n_Count + InStr(ALF2$, c_Char)
End Select

Next lcv

n_Count = 1 + ((n_Count - 15) Mod 26) + 64
c_Code = Chr$(n_Count)
c_Char = Mid$(sz_Codice, 16, 1)

If c_Code = c_Char Then

CheckCodiceFiscale = 0

Else

CheckCodiceFiscale = n_Count

End If

End Function

[verardoelvis]

niente, ho provato la routine sopraindicata ma non funziona perchè mi dà errore anche quando il codice fiscale è giusto!
Come faccio