Validacion en un textbox (Visual Basic)

[fonsypool]

Con este codigo solo te dejara introducir numeros teniendo en cuenta que los numeros del 1 al 0 son los codigos ASCII del 48 al 57, lo que hace esto es que si pulsas algo diferente a un numero cambiamos el valor del KeyAscii por un ACK que es el valor 6 (en realidad no hace nada)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 6
End If
End Sub

con las letras minusculas seria:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 97 Or KeyAscii > 122 Then
If KeyAscii <> 8 Then KeyAscii = 6
End If
End Sub

o con las mayusculas:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
If KeyAscii <> 8 Then KeyAscii = 6
End If
End Sub

El ASCII que corresponde al 8 es el BackSpace, la tecla de borrar. Espero qe te sirva