codice:
If (KeyAscii > 32 And KeyAscii < 65 Or KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 255) Then
'è un numero quindi non scrivo nulla
  KeyAscii = 0
Else
  KeyAscii = KeyAscii + 97 'trasforma la lettera in maiuscolo
End If
Se si tratta di VB6