VBA如何限制窗体控件文本框的输入只能是汉字

    首先VBA编辑器里，插入一个窗体，窗体名称改成：FrmMain，在该窗体上画一个控件TextBox1，画一个命令按钮CommandButton1。如下：

双击“CommandButton1” ，写入以下代码，可以限制TextBox1输入的内容“非空”且长度不超过4且为汉字，不能是数字和其他符号，代码如下：

Private Sub CommandButton1_Click()
 If FrmMain.TextBox1.Text = "" Then '判断非空
        MsgBox "请填报姓名！", vbOKOnly, "提示"
    Exit Sub
   End If
   
    If Len(FrmMain.TextBox1.Text) > 4 Then '判断姓名长度
            FrmMain.TextBox1.Text = ""
            MsgBox "姓名长度超过4个字，请重新输入！", vbOKOnly, "提示"
        Exit Sub
    End If

    With CreateObject("vbscript.regexp") '判断只能输入中文
            .Global = True
            .Pattern = "[^\u3447-\uFA29]"
        If .Test(FrmMain.TextBox1.Text) Then
            FrmMain.TextBox1.Text = ""
            MsgBox "只能输入中文汉字", vbOKOnly, "提示"
        End If
    End With
End Sub