首先VBA编辑器里，插入一个窗体，窗体名称改成：FrmMain，在该窗体上画一个控件TextBox1，画一个命令按钮CommandButton1。如下：
双击“CommandButton1” ，写入以下代码，可以限制TextBox1输入的内容“非空”且长度不超过4且为汉字，不能是数字和其他符号，代码如下：
Private Sub CommandButton1_Click()If FrmMain.TextBox1.Text = "" Then '判断非空MsgBox "请填报姓名！", vbOKOnly, "提示"Exit SubEnd IfIf Len(FrmMain.TextBox1.Text) > 4 Then '判断姓名长度FrmMain.TextBox1.Text = ""MsgBox "姓名长度超过4个字，请重新输入！", vbOKOnly, "提示"Exit SubEnd IfWith CreateObject("vbscript.regexp") '判断只能输入中文.Global = True.Pattern = "[^\u3447-\uFA29]"If .Test(FrmMain.TextBox1.Text) ThenFrmMain.TextBox1.Text = ""MsgBox "只能输入中文汉字", vbOKOnly, "提示"End IfEnd WithEnd Sub
