Textbox em maiúsculo ou minúsculo

Para configurar um textbox permitindo somente a entrada de caracteres maiúsculos ou minúsculos é bastante simples...

Código dentro do procedimento Change da textbox1 que converte o texto para maiúsculo

Private Sub TextBox1_change()

TextBox1 = UCase(TextBox1)

End Sub



Código dentro do procedimento Change da textbox2 que converte o texto para minúsculo
   
Private Sub TextBox2_Change()

TextBox2 = LCase(TextBox2)

End Sub