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