'==================================================
'Меняет регистр букв в строке: 1-ВЕРХНИЙ,2-нижний,3-Первая Буква,4-Как в предложениях,5-иЗМЕНЕН РЕГИСТР
Public Function РегистрБукв(МойТекст As String, МойРегистр As Integer)
    Select Case МойРегистр
        Case 1 To 3, 64, 128
            '1-vbUpperCase,2-vbLowerCase,3-vbProperCase,64-vbUnicode,128-vbFromUnicode
            РегистрБукв = StrConv(МойТекст, МойРегистр)
        Case 4
            'Сделать как в предложениях. Совсем.
            Length = Len(МойТекст)
            'делаем первую букву заглавной, а все остальные - строчными
            РегистрБукв = UCase(Mid(МойТекст, 1, 1)) + LCase(Mid(МойТекст, 2))
            curPos = 1
            Do While curPos <= Length
                'ищем последовательно по строке разделители предложений
                If Mid(РегистрБукв, curPos, 1) Like "[.!?]" Then
                    'если нашли разделитель, то пропускаем все не-буквы, пока не закончилась строка
                    Do While curPos < Length And Not (Mid(РегистрБукв, curPos, 1) Like "[a-zа-яё]")
                        curPos = curPos + 1
                    Loop
                    'делаем следующую после разделителя букву заглавной
                    РегистрБукв = Mid(РегистрБукв, 1, curPos - 1) & UCase(Mid(РегистрБукв, curPos, 1)) & Mid(РегистрБукв, curPos + 1)
                End If
                curPos = curPos + 1
            Loop
        Case 5
            'Изменить регистр
            РегистрБукв = ""
            For i = 1 To Len(МойТекст)
                m = Mid(МойТекст, i, 1)
                If m Like "[a-zа-яё]" Then
                    РегистрБукв = РегистрБукв & UCase(m)
                ElseIf m Like "[A-ZА-ЯЁ]" Then
                    РегистрБукв = РегистрБукв & LCase(m)
                Else
                    РегистрБукв = РегистрБукв & m
                End If
            Next i
        Case Else
            РегистрБукв = "Неверный аргумент МойРегистр. 1-ВЕРХНИЙ,2-нижний,3-Первая Буква,4-Как в предложениях,5-иЗМЕНЕН РЕГИСТР"
    End Select
End Function
'==================================================