conversión de mayúsculas y minúsculas

Si no hay mayúsculas o minúsculas en inglés en el contenido del texto1, puede usar el siguiente código

Dim s As String

Dim Result As String

Para i = 1 A Len (Text1.Text)

s = Mid(Text1.Text, i, 1)

If Asc(s) gt = Asc("A") Y Asc(s) lt;= Asc("A")