Thanks for the help.
I still can't use the Numeric keypad though.
I have this code:
Private Sub SurveyedTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
' Allows Delete or Enter keys to be processed normally
If KeyCode > 31 Then
' If not 1, 2 or 3, or a number has already been
' entered, don't accept additional input
If KeyCode < 48 Or KeyCode > 57 Or Len(PolingTextBox.Text) > 3 Then
KeyCode = 0
End If
End If
End Sub
but only works on the Number keys NOT on the Numeric keypad numbers.
Any ideas?