محدودیت در Textbox (فقط عدد 4 رقمی)

[a.dal65]

با سلام خدمت اساتید
من میخوام در Textbox خودم فقط بتونم عدد 4 رقمی وارد کنم .
کمتر یا بیشتر خطا بده.

[iranweld]

با سلام

از کد ذیل استفاده کنید


Private Sub CommandButton1_Click()
If Len(TextBox1) <> 4 And Not IsNumeric(TextBox1) Then
MsgBox "not ok"
Else
Range("a1") = TextBox1

End If
End Sub