[RESOLVED] Check if all characters are uppercase

[vali20]

Hello everyone, I have a list box control on my form. When I click on something on the list box, I want to determine if the text of the item I've clicked in the list box is uppercase or not (even if the text is HELLO WORLD! and it contains a space between HELLO and WORLD and an exclamation mark, it should be marked as uppercase and the program should display a message like: "The text you've clicked is uppercase"). I don't know how to get this! Can someone help me? Thanks in advance!

[LaVolpe]

Easiest way: If StrComp(UCase$(List1.List(x)), List1.List(x), vbBinaryCompare)=0 Then ' match identically

Edited: The above is generic & does not depend on any OPTION COMPARE statements added to top of your code page.
If you only want to compare the selected listbox item, replace .List(x) with .Text

[vali20]

Thank You very much LaVolpe! It works perfect! I had no problem implementing the code in my app. Thank You very much!

Greetings from Romania!

[LaVolpe]

You are welcome. If this is resolved, please mark it resolved using the "Thread Tools" menu near top of your first post.

Romania? Your English skills are very impressive

[vali20]

Thank You very much and thanks again for the great code You posted here.