Problema con Validación

Se me está presentando un problema con el siguiente código, lo coloqué

onKeyPress

Validación de mayúsculas

Me.txtusername.CharacterCasing = CharacterCasing.Upper

Validación de sólo letras

If e.KeyChar.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

El problema ocurre cuando el usuario ingresa la primera letra, ésta no
aparece en el textbox, luego después de la segunda funciona perfecto.

¿Qué estoy haciendo mal?

Gracias