[VB.NET] Individuare caratteri maiuscoli all'interno di una stringa

[LeleFT]

Scorri tutta la stringa carattere per carattere e controlli se il carattere i-esimo è uguale all'upper case del carattere stesso.
Qualcosa del genere:

Function carMaiusc(tuaStringa As String) As Booleab
Dim c as String
Dim b = As Boolean

b = False
For I=1 to Len$(tuaStringa)
   c = Left(Right(tuaStringa,I),1)
   b = b Or (c = UCase$(c))
Next I

carMaiusc = b

Ciao.