ocr: NumbersUnlyPi - NumbersUnly (Code) O X - (General) (Declarations) Const Zero - 48 Const Nine - 57 Const Backspace - 8 Private Sub txtNumbers Change () End Sub Private Sub txtNumbers KeyPress KeyAscii If KeyAscii <> Backspace) And KeyAscii < Zero Or KeyAscii > Nine) Then KeyAscii == 0