要让用户在文本框中只能输入数字，可以使用KeyPress事件来检测用户输入的字符是否为数字。以下是一个示例代码：
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
在此示例中，TextBox1为文本框的名称。KeyPress事件会在用户按下键盘上的按键时触发。在事件处理程序中，通过检查输入的字符是否为数字（使用IsNumeric函数），以及Backspace键（ASCII码为8）是否按下，来确定是否允许输入。如果不是数字且不是Backspace键，则将KeyAscii设为0，从而阻止用户输入非数字字符。
