Number (decimal) delete and backspace

[zezo2021]

Friends
I want to allow the delete and backspace and decimal to this code
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0

 

[arnelgp]

Private Sub Textbox1_KeyPress(KeyAscii As Integer)
Select Case True
Case IsNumeric(Me.Textbox1.Text & Chr(KeyAscii))
Case Chr(KeyAscii) = "." And InStr(Me.Textbox1.Text & "", ".") = 0
Case KeyAscii = 8
Case Else
    KeyAscii = 0
End Select

End Sub

 

[oleronesoftwares]

Private Sub Textbox1_KeyPress(KeyAscii As Integer) Select Case True Case IsNumeric(Me.Textbox1.Text & Chr(KeyAscii)) Case Chr(KeyAscii) = "." And InStr(Me.Textbox1.Text & "", ".") = 0 Case KeyAscii = 8 Case Else KeyAscii = 0 End Select End Sub

You are good, i commend your knowledge of VBA