La solución que propones es correcta, compañero
Avellaneda.
No obstante, si se hace copiar/pegar no va a cambiar. Así que propongo que se coloque en el evento Change. Así:
Código:
'Mayúsculas
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)
End Sub
'Minúsculas
Private Sub Text1_Change()
Text1.Text = LCase(Text1.Text)
End Sub