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

[gohanjaja]

Código:

Private Sub doc_KeyPress(KeyAscii As Integer)                        'DOCUMENTO

If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
        
    Dim d1 As Long, x As Integer
    
d1 = Val(doc.Text)
        If d1 = 0 Then
            x = MsgBox("Ingrese Solo Digitos Numericos", vbCritical, "Error D.N.I.")
            doc.Text = ""
        
        Else
                    
                If (d1 > 5000000) And (d1 < 50000000) Then
                    Call Form_lostfocus
                
                
                Else
                    x = MsgBox("Ingrese Dentro Del Rango Permitido" + Chr(10) + "Mayor a 5.000.000 y Menor 50.000.000", vbCritical, "Error D.N.I.")
                    doc.Text = ""
                End If
        End If

        
    
End If

numeros = "0123456789," & vbBack
 num = Chr(KeyAscii)
 V = InStr(1, numeros, num)
 If V = 0 Then
    KeyAscii = 0
    
 End If
        
End Sub

Encontre ése en un trabajo viejo , anda bien , pero no trabaja con ADO recorset... intente probar y me tira errores por todos lados...