Visual Basic - ayuda por favor

como hago para que en un textbox no se acepte numero mayores que x numeros sin usar el if then

gracias

No esta muy clara tu pregunta.

1) Si lo que quieres es que el usuario ingrese una maximo de x digitos, entonces lo que tienes que hacer es modificar la propiedad MaxLength al numero de digitos que desees.

2) Si lo que quieres es hacer que el usuario no ingrese un numero mayor a un valor, entonces en el evento LostFocus del textbox podrias validar ese numero asi:

Sub txtCampo_LostFocus()
If Val(txtCampo) > 5000 Then
MsgBox "Valor errado"
txtCampo.SetFocus
End If
End Sub

Saludos desde Lima