N'avoir que des chiffres dans une textbox ?!

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then _
        KeyAscii = 0
End Sub

[SIZE=2][COLOR=NAVY]Private Sub[/COLOR] TextBox1_KeyPress([COLOR=NAVY]ByVal[/COLOR] KeyAscii [COLOR=NAVY]As[/COLOR] MSForms.ReturnInteger)
    [COLOR=GREEN]'autorise uniquement les touches numériques[/COLOR]
    [COLOR=NAVY]Select Case[/COLOR] KeyAscii
    [COLOR=NAVY]Case Is[/COLOR] < 48, [COLOR=NAVY]Is[/COLOR] > 57
        KeyAscii = 0
    [COLOR=NAVY]End Select
End Sub[/COLOR][/SIZE]