Function numeric_chk()
	Dim KeyAscii
	KeyAscii = Window.event.keyCode
	Select Case KeyAscii
	Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
	Case Else
		Window.event.keyCode = 0
	End Select	
End function