Convertir Minúsculas a Mayúsculas

Private Sub Command1_Click()
UCase (Text1)
Text2 = UCase(Text1)
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
End Sub