要讓用戶在文本框中只能輸入數字，可以使用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，從而阻止用戶輸入非數字字符。
