IsUpperCase

Function isUCase(InputString As String) As Boolean
Dim intCurrentCharacter As Integer
For intCurrentCharacter = 1 To Len(InputString)
If Asc(Mid(InputString, intCurrentCharacter, 1)) _
<> Asc(UCase(Mid(InputString, _
intCurrentCharacter, 1))) Then
Exit Function
End If
Next intCurrentCharacter
isUCase = True
End Function

'es.


If IsUcase(strCompanyName) = True Then
blnNameAcronym = True
End If
Inputs:InputString (string)
Returns:True = String is All Uppercase
False = String contains lowercase letters

Assumes:Example: