vb6 procedura per controllo dati in casella testo

[arcadia]

No....l'ho creata io in base al codice che avevi postato tu....
se non ti piace il nome chiamala PincoPallino:

Public Function PincoPallino(KeyAscii As Integer) As Integer
    Select Case KeyAscii
    Case Is < 32
        PincoPallino = KeyAscii
    Case 48 To 57
        PincoPallino = KeyAscii
    Case Else
        PincoPallino = 0
    End Select
End Function