Vincolare a digitare solo cifre all'interno dii TextBox

[yyzyyz]

Private Sub Text1_KeyPress(KeyAscii As Integer)
' input numerico
If (((KeyAscii < 48) Or (KeyAscii > 57)) _
    And ((KeyAscii <> 13) _
    And (KeyAscii <> 8) _
    And (KeyAscii <> 188) _
    And (KeyAscii <> 46) _
    And (KeyAscii <> 44) _
    )) Then
    KeyAscii = 0
End If
End Sub