' This validates that numerics were entered

If KeyCode = 13 Then           ' Enter pressed
    Exit Sub
End If

If KeyCode = 8 Then Exit Sub                      ' Ignore Backspace
If KeyCode = 9 Then Exit Sub                      ' Ignore Tab
If KeyCode = 44 Then Exit Sub                     ' Ignore Screen Print
If KeyCode = 46 Then Exit Sub                     ' Ignore delete
If KeyCode = 37 Then Exit Sub                     ' Ignore backward arrow
If KeyCode = 39 Then Exit Sub                     ' Ignore forward arrow
If KeyCode = 17 Then Exit Sub                     ' Ignore paste
If KeyCode < 106 And KeyCode > 95 Then Exit Sub   ' Allow Num-Lock Numbers

If KeyCode > 57 Or KeyCode < 48 Then
        MsgBox "Must be numeric", vbCritical, "Invalid Entry"
End If