首先建立一文字框TextBox1

雙擊TextBox1，輸入以下程式碼

Private Sub TextBox1_Change()

Dim i

"長度上限

If Len(TextBox1.Text) > 8 Then "如果文字長度大於8

TextBox1.Text = TextBox1.Tag "將文字變為上次輸入的文字

Beep "使喇叭發出聲響，可以不要

End If

"輸入限制

For i = 1 To Len(TextBox1.Text) "迴圈測試文字，從第一個到最後一個

Select Case Mid(TextBox1.Text, i, 1)

Case 0 To 9

Case Else "如果有文字不是0~9之間的數字，則

TextBox1.Text = TextBox1.Tag "將文字變為上次輸入的文字

Beep "使喇叭發出聲響，可以不要

Exit Sub "更改完成，退出過程

End Select

Next

TextBox1.Tag = TextBox1.Text

End Sub

執行程式即可

不懂可以追問

求採納