参考答案

Private Sub C1_Click()
    Text1.Text = LCase(Text1.Text)
    Text2.Text = UCase(Text1.Text)
End Sub