Hola, como puedo validar un textbox con númeres entre xx hasta xxx

[gohanjaja]

Lo pongo asi

Código:

Private Sub dni_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
Dim valor As Integer
valor = Val(dni)
If valor < 5000000 Or valor > 50000000 Then
MsgBox "Error"
End If

End Sub

Pero al apretar el 5 ya me salta ese error, y si quiero borrar tmb me salta el error....



Alguna otra forma??