CHANGING LETTERS IN TXTBOX TO LOWER CASE ONLY ALPHABETS

CHANGING LETTERS IN TXTBOX TO LOWER CASE ONLY ALPHABETS
Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles EMAIL.KeyDown
'MsgBox(e.KeyCode)
'MsgBox(Chr(e.KeyCode))


Dim k As String
If Not e.Shift And Not e.Alt And Not e.Control Then
If Chr(e.KeyData) Like "[A-Z]" Or Chr(e.KeyData) Like "[a-z]" Then

k = Chr(e.KeyData)


EMAIL.Text = EMAIL.Text + k.ToLower()
e.SuppressKeyPress = vbAbort
SendKeys.Send("{END}")
End If
End If

End Sub
kaar3k@gmail.com