¿Conversión de casos VB y programación de limpieza?

Subcomando privado1_Click()

Texto2 = UCase(Text1)

Fin Sub

Subcomando privado2_Click()

Texto2 = LCase(Text1)

End Sub

Subcomando privado3_Click()

Texto1 = ""

Texto2 = ""

End Sub

Sub privado Form_Load()

Command1.Caption = "mayúsculas"

Command2.Caption = "minúsculas "

Command3.Caption = "Borrar"

Fin Sub