Validar campos texto y numèrico

Hola amigos,
Como puedo hacer para evitar que el usuario ingrese valores de tipo caracter
en un campo de texto, donde sólo se debería ingresar datos de tipo cadenas.
Lo estoy haciendo con este código, pero no me sale en el case else, me sale
un error indicàndome que el keychar es de tipo solo lectura.

Private Sub txtContrato_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtContrato.KeyPress

Select Case Asc(e.KeyChar)

Case 8, 13, 48 To 57

Case Else

e.KeyChar = ""

End Select

End Sub

Saludos.
Miguel Valles.