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 iEnd Function
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
