Function Modificar Mayusculas Minusculas (texto)

Function ModificarMayusculasMinusculas(texto)


'Esta función devuelve la cadena (texto) convertida en palabras
'que empiezan con mayuscula

Dim CadenA As String
Dim ANSI As Variant
Dim Numero As Integer

CadenA = LCase(texto)
Mid(CadenA, 1, 1) = UCase(Left(CadenA, 1))
For Numero = 2 To Len(CadenA) - 1

ANSI = Asc(Mid(CadenA, Numero, 1))
If ANSI < 65 Or ANSI > 122 Or (ANSI > 90 And ANSI < 97) Then
If ANSI <> 241 Then

Mid(CadenA, Numero + 1, 1) = UCase(Mid(CadenA, Numero + 1, 1))

End If

End If

Next Numero

Mayusculas = CadenA
End Function