Hay I figured it out. I know I had done it a while back but couldn't remember how I did it. Here is the code I am using in the Key down even for the txt box
[code]
Private Sub txtCarCount_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 48, 49, 50, 51, 52, 53, 54, 55, 56...