[حل شده] بررسی داده وارد شده توسط کاربر

[khorasan66]

سلام
کدی را لازم دارم که
هنگامی که کاربر یک کد سه رقمی در یک InputBox وارد می نماید بررسی نماید اگر
مقدار وارد شده تهی باشد و یا کمتر از 100 و یا بیشتر 999 باشد پیام دهد کد وارد شده صحیح نمی باشد و
مجدد درخواست ثبت کد را تکرار نماید
با تشکر

[amir_ts]

با سلام
امتحان کنید...

[LEFT]
Sub test()
Dim s As Variant
Line1:
s = InputBox("input number")
If Len(s) = 0 Or s > 999 Or s < 100 Then
s = ""
MsgBox "not valid"
GoTo Line1
End If
End Sub
[/LEFT]