Private Sub Command1_Click()Text1.Text = "nindifdjifdjifdfjshfshfsklfjds"a = Text1.TextText2.Text = LCase(a)Text3.Text = UCase(a)End Sub
