Visual Basic - Validar un solo numeros en un texbox

Tengo una rutina para validar numeros en un control texbox y estoy utilizando el evento KeyDown es la siguiente

Private Sub txt_cedula_KeyDown(KeyCode As Integer, Shift As Integer)
'************************* Validación de la tecla enter,Flecha Abajo y Tab *****************************************************************************************
'If (KeyCode > 47 And KeyCode < 58) Or ((KeyCode = 13 Or KeyCode = 40)) or KeyCode = 9 Then
Dim svar1 As String
svar1 = txt_cedula.Text
If txt_cedula.Text <> "" Then
txt_nombres.SetFocus
Else
svar1 = txt_cedula.Text
MsgBox "El numero de cedula es un campo Obligatorio" & vbCrLf & "Por favor coloque su cedula para continuar", vbCritical, "Inscripcion de Estudiantes"
End If
Else
MsgBox "En este campo solo acepta valores numericos", vbInformation, "Inscripción de estudiantes"
End If

Escribo en el texbox y valida pero cuando hago la pregunta if txt_cedula.Text <> "" Then
siempre me dice que esta vacio

Lógico, en el evento KeyDown, todavía no se han producido todos los eventos de teclado, y por lo tanto, todavía no se ha introducido el texto.
Para comprobar si el textbox está vacio deberías usar un evento posterior como por ejemplo lostfocus.