Validar mayúsculas en textbox

[erbuson]

Hola:

Creo que si pusieras un ejemplo sería mas claro, te pongo lo que yo entiendo a ver si es lo que quieres.

Ucase convierte minúsculas a mayúsculas, por lo tanto

If Ucase(Text1) = Text1 Then
' El texto SI está escrito en mayúsculas
Else
' El texto NO está escrito en mayúsculas
End If

Pero cuidado que si no hay caracteres alfabéticos la función te devolverá verdadero o sea:

Ucase("Jose") devuelve JOSE pero por lo que si el usuario ha escrito JOSE la comparación devuelve VERDADERO pero si ha escrito "JOse" te devuelve FALSO

Si el usuario ha escrito "1234" siempre devolverá VERDADERO

No se si me explico bien, si no es así expón un ejemplo.

Saludos