| Pregunta: | 55605 - CADENA A MAYUSCULA |
| Autor: | Nestor Martinez |
| Hola amigos, quiero saber si hay alguna funcion o como puedo hacer para pasar una cadena que esta toda en mayuscula a que la primer letra sea mayuscula y las demas en minuscula, esta cadena es el campo de una tabla que ya esta cargada.
Desde ya muchas gracias | |
| Respuesta: | El conejo El conejo |
| text1.text = yoquese(text1) ' la cadena
Function yoquese(ByVal texto As String) As String yoquese = UCase(Mid(texto, 1, 1)) & LCase(Mid(texto, 2, Len(texto))) End Function | |