Chỉ cho phép nhập số vào TextBox trong VB6

Private Sub txtID_KeyPress(KeyAscii As Integer)
    If KeyAscii < 48 Or KeyAscii > 57 Then
        KeyAscii = 0
    End If
End Sub