Visual Basic - DUDA PLEASE!!SOLO NUMERO Y EL 0???

DUDA PLEASE!!SOLO NUMERO Y EL 0???

Hola colega, tengo un gran problemilla ya que estoy realizando una rutina en mis textbox para que me admita solo numeros pero resulta que no me admite el numero 0 al inicio sino a partir del segundo caracter. La rutina es la siguiente:
Private Sub TXTcedula1_KeyPress(KeyAscii As Integer)
Dim strNumeros As String
strNumeros = "1234567890" & Chr(8)
If Len(TXTcedula1) = 0 And Chr(KeyAscii) = 0 Then
KeyAscii = 0
Else
If InStr(1, strNumeros, Chr(KeyAscii), vbBinaryCompare) = 0 Then
KeyAscii = 0
End If
End If
End Sub

Agradezco de tu ayuda para ver en que estoy fallando.. Gracias

mira esta es la rutina que ocupo y mefunciona muy bien y admite el 0 siquieres te mando en ejemplo a tu correo

Te lo agradeceria mucho colega, mi email es [email protected]

Gracias por la ayuda

ya te lo envie checalo

Pon este código:

Private Sub TXTcedula1_KeyPress(KeyAscii As Integer)
Select case Chr(KeyAscii)
Case "0" To "9"
Case Chr(8)
Case else
KeyAscii=0
End Select

End Sub

Espero te sirva. Saludos Pola