Binaryworld - IsStringUpper - Determine whether a string contains only uppercase cha ... [ VB -> String ]

Private Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal _
  cChar As Byte) As Boolean

' Check is the specified string is composed only by upper case characters (no
' digits and no special chars)
' Example:
'  MsgBox "Is upper case? " & IsStringUpper("HELLO")
'  MsgBox "Is upper case? " & IsStringUpper("HElLO")
Public Function IsStringUpper(ByVal sText As String) As Boolean
  Dim i As Integer

  IsStringUpper = True

  ' for each char in the string
  For i = 1 To Len(sText)
    ' if not upper case, set False as return value and exit the for loop
    If IsCharUpper(Asc(Mid$(sText, i, 1))) = False Then
      IsStringUpper = False
      Exit For
    End If
  Next i
End Function