Visual Basic - Numero de Mayusculas

Hola una pregunta, existe alguna funcion que me saque el numero de mayusculas en una cadena?
Si no, poes como hago para separar letra por letra y hacer un ciclo de comparacion?

La idea es sacar el numero de mayusculas y minusculas en una palabra.

y eso que pones da el numero de mayusculas y minusculas??

ya se que no te gusta utilizar el instr pero al menos utiliza el select case

mayor patochada no habia leido nunca en este foro y mira que es dificil superar las tonterias que se dicen aqui

Cada vez piden cosas mas raras.
Supongo que hay muchas formas de hacerlo. Esta es una y puede que no la mas elegante, pero funciona.


cadena = "LaRgA VIda aL FORo"
For x = 1 To Len(cadena)
caracter = Mid(cadena, x, 1)
If Asc(caracter) > 64 And Asc(caracter) < 91 Then
mayusculas = mayusculas + 1
End If
If Asc(caracter) > 96 And Asc(caracter) < 123 Then
minusculas = minusculas + 1
End If
Next
MsgBox "Mayusculas " & mayusculas & " " & "Minusculas " & minusculas

Además de seguir haciendo el nop sigues empeñado en confundirme a mí con otros. Puedes escribir como quieras, que una vez se te conoce es como si dejaras tu firma.

Entiendo que te pases por aquí para "extraer" información, pero si alguna de tus preguntas ha recibido una mala respuesta no deberías ponerte como te pones.

Yo estoy aquí para ayudar, aunque te aprobeches de ello, asi que mejor deja el instr que el que te lo enseño no sabía mucho de esto.

WOW!!

yo nunca pregunté nada, habrá sido el otro yo

y tu estás aquí para menospreciar a los que preguntan

¿tan importante te crees?