Você pode usar este código, em todos os formulários.
Private Sub Form_Load()
Me.KeyPreview = True 'Este valor pode ser alterado na janela de propriedades
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub