Om du har flera textboxar som endast får innehålla siffror kan följande fungera bra för att förenkla koden.

Skapa följande sub i en modul:

Public Sub OnlyNumbers(ByRef KeyAscii As Integer, ByRef Box As TextBox)
If Len(Box.Text) = 0 Then
If KeyAscii <> 45 And (KeyAscii < vbKey0 Or KeyAscii > vbKey9) And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
Else
If (KeyAscii < vbKey0 Or KeyAscii > vbKey9) And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Funktionen släpper enbart igenom siffror och backspace.

För varje textbox som endast får ha siffror så anropas funktionen i KeyPress funktionen.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Call OnlyNumbers(KeyAscii, Text1)
End Sub

Funktionen kan enkelt delas av all textrutor i projektet.