在介面程式設計中，有時我們只想讓TextBox控制項接收數位型輸入，而其他輸入被忽略，這怎麼實現呢？下面就給出了具體的原始碼：
我們為TextBox新增KeyPress事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
Beep
KeyAscii = 0
End If
End Sub
上面的具體原理是：判斷按下鍵的KeyAscii值是否在48-57之間，如果是在其間，則輸入的為數字，否則就不是，但是有時我們還可能使用到退ge鍵，以方便輸入錯誤時刪除，這樣的話，所以必須加上KeyAscii <> 8，以在使用退ge鍵時不被忽略。