Private Sub Command3_Click()
Text1.SetFocus
If z = UCase(Text1.Text) Then
UCase(Text1.Text) = LCase(Text1.Text)
Text1.Text = LCase(Text1.Text)
End If
If z = LCase(Text1.Text) Then
LCase(Text1.Text) = UCase(Text1.Text)
Text1.Text = UCase(Text1.Text)
End If
End Sub
不知道哪里错了