IsStringUpper – Determine whether a string contains only uppercase characters
‘ Returns True if a string contains only uppercase charactersFunction IsStringUpper(ByVal sText As String) As Boolean Dim c As Char For Each c In sText If Not Char.IsUpper(c) Then Return