تعیین مقدار برای textbox

[look20]

با سلام و خسته نباشید میدونم شاید سوال پیش پا افتاده ای باشه ولی خوب این برام مشکله
If Len(MaskEdBox1) = 4 Then
If Val(MaskEdBox1) < 1300 Or Val(MaskEdBox1) > 1500 Then
MsgBox "Please type number betwen 1300 And 1500"
MaskEdBox1 = Empty
MaskEdBox1.SetFocus
End If
End If
با این کد textbox فقط مقدار وارد شده بین 1300 تا 1500 رو قبول میکنه ولی اگه عدد 4 رقم نباشه پیغام نمیده
مشکل من اینجاست که میخام اگه مقدار وارد شده 4 رقمی نباشه و هم اینکه بین 1300 تا 1500 نباشه پیغام بده

[monitor]

سلام.
if اول رو بايد برداري تا شرط 4 رقم بودن رو چك نكنه

If Val(MaskEdBox1) < 1300 Or Val(MaskEdBox1) > 1500 Then
MsgBox "Please type number betwen 1300 And 1500"
MaskEdBox1 = Empty
MaskEdBox1.SetFocus
End If

[look20]

عزیز اینطوری قبل اینکه رقم دوم رو میخای بنویسی پیام میده من میخام وقتی اینتر زدم و کلیک چپ کردم روی تکس باکس اگه 4 رقم نبود و یا اگر 4 رقم بود ولی بین 1300 تا 1500 نبود پیغام بده

[monitor]

If Val(MaskEdBox1) < 1300 Or Val(MaskEdBox1) > 1500 or Len(MaskEdBox1) <> 4 then
...
end if

[look20]

گفتم مشکل داره حل نشد خودتون امتحان کنید
من گفتم اگه کلیک کردم! ولی این تا یه رقم میزنی پیغام میده

[مهران رسا]

گفتم مشکل داره حل نشد خودتون امتحان کنید
من گفتم اگه کلیک کردم! ولی این تا یه رقم میزنی پیغام میده
رویداد Click برای همین کار ساخته شده.

[look20]

ببخشید سر شبه یکم قاطی کرده بودم موخم نمیکشید بازم ممنون از دو دوست عزیز (http://www.barnamenevis.org/forum/member.php?u=58987) monitor (http://www.barnamenevis.org/forum/member.php?u=89225)
و
M8SPY (http://www.barnamenevis.org/forum/member.php?u=58987)

[MMR_1344]

دوست عزیز در دستور شرط اول باید کنترل کنه اگرتعداد کاراکتر بیشتر 4 بود یک پیام بیاد



If Len(MaskEdBox1) = 4 Then
If Val(MaskEdBox1) < 1300 Or Val(MaskEdBox1) > 1500 Then
MsgBox "Please type number betwen 1300 And 1500"
MaskEdBox1 = Empty
MaskEdBox1.SetFocus
End If
Elseif Len(MaskEdBox1) > 4 Then
MsgBox "The number greter than 1500"
End If

[ali_habibi1384]

حتما توی رویداد Change نوشتی؟!