Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long
IsCharLower определяет является ли символ верхним регистром. Это определение основано на семантике языка выбранного пользователем во время установки или через Панель Управления
Если символ является верхним регистром, функция возвращает значение, отличное от нуля. Если символ не является нижним регистром, функция возвращает 0 (используйте GetLastError для получения кода ошибки)
' Определяем, является ли первая буква ' строки "Русский_проект" верхним регистром Dim mystring As String ' строка для тестирования mystring = "Русский_проект" ' определяем регистр первого символа строки If IsCharUpper(Asc(mystring)) = 0 Then MsgBox "Нижний регистр" Else MsgBox "Верхний регистр" End If