. Cómo programar: Ingrese un carácter, si es una letra mayúscula en inglés, conviértalo a una letra minúscula en inglés, si es una letra minúscula en inglés, conviértalo;
Texto de control1 es el carácter de entrada
Texto2 es el resultado de salida
Private Sub Text1_Change()
' Preste atención a la variable tipo al declarar la variable
Dim X As String
Dim I As Long
Dim S As String
Dim CH As String
X = Texto1.Text
Para I = 1 a Len(X)
CH = Medio(X, I, 1)
Si CH >= "a " Y CH <= "z" Entonces 'Iniciar conversión de casos
S = S + UCase(CH)
Si no CH >= "A" Y CH <= " Z" Entonces
S = S + LCase(CH)
Finalizar si
Siguiente I
Texto2.Texto = S
p>Fin Sub