Perkè sta funziona non gira..o meglio gira ma c'è un errore..sia che inserisco le lettere giuste che i caratteri che escludo mi dà sempre lo stesso messaggio: "Valid characters are A-Z,a-z, 0-9"!!Volevo inoltre sapere come faccio a limitare il numero di lettere a 255..mi dite cosa devo inserire in questa funzione o magari in una nuova!!Vi prego!!


Function VerifyName( sName )
Dim nCount
Const szValidChars = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"

If sName = "" Then
VerifyName = "Must enter a name"
Exit Function
End If
For nCount = 1 To Len(sName )
If InStr( szValidChars, InStr( nCount, sName, 1 ) ) <= szValidChars Then
VerifyName = "Valid characters are A-Z,a-z, 0-9"
End If
Next
VerifyName = "Valid characters are A-Z,a-z, 0-9"
End Function