Usa di tutte e due i codici, le parti che ti servono

codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case Is < 32
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp:
            Text1.Text = Text1.Text + 1
        Case vbKeyDown:
            Text1.Text = Text1.Text - 1
    End Select
End Sub
(Per Alarico_Re: CkDgtNumber e' una funzione di cui dovresti dare il codice ... non e' di VB, e senza il codice non basta inserirla nella KeyPress ...)