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