Dim x As String
Private Sub Command1_Click()
Text1.Text = UCase(x)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase(x)
End Sub
Private Sub Command3_Click()
Text1.Text = x
End Sub
Private Sub Form_Load()
x = Text1.Text
End Sub
Dim x As String
Private Sub Command1_Click()
Text1.Text = UCase(x)
End Sub
Private Sub Command2_Click()
Text1.Text = LCase(x)
End Sub
Private Sub Command3_Click()
Text1.Text = x
End Sub
Private Sub Form_Load()
x = Text1.Text
End Sub