Validar Textbox Con Solo Letras Hecho Con Funcion

[krokstyle]

Hola...estoy trabajando con VB.NET 2005 y necesito validar un textbox en donde me permita ingresar solo letras, que al ingresar la primera letra despliegue un msgbox y limpie lo ingresado... Tengo esta funcion pero no me anda bien...
Solicito sugerencias...por favor...Gracias...




Function valida(ByVal letra As String, ByRef v As Boolean)

Dim n As Integer
Dim x As Integer
Dim a As Integer
Dim c As Integer
n = Len(letra)
For x = 1 To n + 1
For a = 0 To 9
If Strings.Mid(letra, x, 1) = CStr(a) Then
c = c + 1
End If
Next
Next
If c = n Then
v = True
End If
Return (v)

End Function


APLICACION DE LA FUNCION EN UN TEXTBOX....
_________________________________________



Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
Dim u As Boolean
valida(TextBox2.Text, u)
If u = True Then
MsgBox("INGRESE SOLO LETRAS", MsgBoxStyle.Information, "Información")
TextBox2.Clear()

End If
End Sub



Bye!

[Peterpay]

pues me iria mas porq invalidaras mejor el evento del keypress, si se

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsLetter(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If

End Sub

claro solo si es windows si es web usa regex

[krokstyle]

ok!
gracias!
me funciona a la perfeccion, solo que no me deja borrar
escribo un texto y me equivoco... y no me deja borrar alguna letra..

pero gracias... lo trabajaré...

[Peterpay]

agrega las teclas validas a tu if is es key.Del o Key Supr q no haga un e.handled =true

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsLetter(e.KeyChar) & e.KeyChar<>Ctype(char,Keys.Del) Then o algo asi no estoy muy segur porq no soy vb.net
e.Handled = True
Else
e.Handled = False
End If

pero la idea es q compareas las teclas q sean validas parsa tu textbox