enkel getallen toegelaten, daarna invoer verwijderen

[Schipper1994]

hallo,

ik heb hier weer een code waar waarschijnlijk een kleinigheidje bij moet maar ik kom er niet aan uit.
dit is een voorbeeld:

Private Sub TextBox2_Change()
    If Not IsNumeric(TextBox2.Value) Then
    MsgBox "enkel getallen aub"
    Else
    End If 
End Sub

dus textbox2 is een textbox in mijn form en ik wil daar enkel maar getallen in. als er iets anders dan een getal inkomt krijg ik achteraf last met foutmeldingen omdat dit een nummuriek ding is.

ik krijg nu een melding maar ik zou ook graag hebben dat de eventuele letter gelijk verwijderd word. ik wil niet dat hij helemaal leeg word gemaakt. gewoon de laatst ingevoerde letter.

 

[HSV]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 
    If KeyAscii < 48 Or KeyAscii > 58 Then KeyAscii = 0
End Sub

 

[edmoor]

Dat geldt ook voor TextBox2

 

[Schipper1994]

kijk het is iets klein maar je moet het maar weten.
dank u nu kan ik zelfs mijn code weg laten.