Modules & VBA :: Key Trapping At Form Level

We are currently developing a simple Point Of Sale Form which consists of 2 text boxes and a list box.We need to trap numeric input from either the keyboard or a barcode scanner at form level,then setfocus on a textbox and enter the input into the textbox.So far have used the keydown event on the form to trap numeric input and setfocus using the following code.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 48 And KeyCode <= 57 And KeyCode >= 96 And KeyCode <= 105 Then
Me.Input.SetFocus
End If
End Sub

This does not however enter the keyboard or scanner input into the textbox.Is there a method to trap the input,set the focus and enter the input into the textbox once it has recieved the focus.