. 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

Fin Sub