KeyTrapping

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then 'a-z
KeyAscii = KeyAscii - 32
End If
End Sub