Transformar digitação em maiúsculas/minúscula

Mais uma pequena contribuição ao fórum, para transformar a digitação em maiúsculo/minúsculo, colocar no evento ao pressionar tecla os códigos:

minúsculo pra maiúsculo

Private Sub MeuCampo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

maiúsculo para minúsculo

Private Sub MeuCampo_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

Aqui outra:

Para funcionar convertendo colagens, basta colocar no evento após atualizar do campo assim:

Me.SeuCampo = UCase(Me.SeuCampo)

Valeu msm estava a procura de algo assim.

Obrigado pelas dicas, realmente eu estava precisando.

Muito bom as dicas, gostei amigos..