Private Sub CommandButton1_Click()If Len(TextBox1) <> 4 And Not IsNumeric(TextBox1) ThenMsgBox "not ok"ElseRange("a1") = TextBox1End IfEnd Sub
کامنت