Écht geen cijfers in TextBox (ook niet via plakken)

[Conseclusie]

Hallo,

In een form-textbox wil ik enkel cijfers toestaan als invoer.
Da's op zich makkelijk te ondervangen via:

Sub TextBox1_KeyPress(ByVal KeyAscii As msforms.ReturnInteger)
    KeyAscii = -KeyAscii * (Chr(KeyAscii) Like "[0-9]")
End Sub

Echter; deze kan niet voorkomen dat een eerder gekopieerde (niet-numerieke) waarde in de textbox geplakt kan worden.
Uiteraard kan ik altijd ná invoer controleren of de textbox enkel cijfers bevat, maar ik wil dus voorkomen dat er uberhaubt niet-numerieke karakters in geplakt kunnen worden.

 

[edmoor]

Zet deze er eens bij:

Private Sub TextBox1_KeyDown(ByVal KeyCode As msforms.ReturnInteger, ByVal Shift As Integer)
    If Shift > 0 then KeyCode = 0
End Sub

 

[Conseclusie]

Dat is 'm!
Thx Ed.