Private Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal _ cChar As Byte) As Boolean' Check is the specified string is composed only by lower case characters (no ' digits and no special chars)' Example:' MsgBox "Is lower case? " & IsStringLower("hello")' MsgBox "Is lower case? " & IsStringLower("heLlo")Public Function IsStringLower(ByVal sText As String) As Boolean Dim i As Integer IsStringLower = True ' for each char in the string For i = 1 To Len(sText) ' if not lower case, set False as return value and exit the for loop If IsCharLower(Asc(Mid$(sText, i, 1))) = False Then IsStringLower = False Exit For End If Next iEnd Function

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job