Public Shared Function IsUpper(ByVal s As String) As Boolean
Dim c As Char
For Each c In s.ToCharArray
If Char.IsLower(c) Then Return False
Next
Return True
End Function
If myString = myString.ToUpper() Then
MessageBox.Show("String is all upper case.")
End If