Private Sub Text1_KeyPress(KeyAscii As Integer) SoloLetras KeyAscii End Sub
Public Sub SoloLetras(CodigoAscii As Integer) Select Case Chr(CodigoAscii) Case "a" To "z", "A" To "Z" 'Permito la tecla de Retroceso Case Chr(8) Case Else CodigoAscii = 0 End Select End Sub