Option Explicit
Private Sub Command1_Click()
Text3.Text = Text1.Text + Text2.Text
End Sub
Private Sub Command2_Click()
Text3.Text = UCase(Text3.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = LCase(Text3.Text)
End Sub