[VBA] Entier dans textbox (userform)

Bonjour,
je sais que ma question peut parraitre toute bebette mais en ayant essayé plusieurs solutions made in Google, j'en reste toujours au même point.

En effet, j'ai un userform avec des textbox et je veux forcer l'utilisateur à rentrer des entiers. J'ai éssayé avec le script suivant sans succès (érreur):

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
'Mise a part le suppr, le point et le backspace
    If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete Then
        If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
        End If
    End If
End Sub

Je travail sur MS Excel 2003 avec VBA

en esperant une réponse éfficace de votre part

Cordialement

VBEti