---

Sub Lab1_10()
    Dim strInput As String, strCleaned As String, strResult As String
    
    strInput = InputBox("Введите текст (например:   привет мир   )", "Как в предложении")
    
    ' 1. Очищаем от непечатных символов (табуляция, переносы строк и т.д.)
    strCleaned = Application.WorksheetFunction.Clean(strInput)
    
    ' 2. Обрезаем лишние пробелы в начале и в конце строки
    strCleaned = Trim(strCleaned)
    
    ' 3. Проверяем, осталось ли что-то после очистки
    If Len(strCleaned) > 0 Then
        ' Делаем первую букву заглавной, а все остальные — строчными
        strResult = UCase(Left(strCleaned, 1)) & LCase(Mid(strCleaned, 2))
    Else
        strResult = "Вы ввели пустую строку или только пробелы/табуляцию."
    End If
    
    MsgBox "Результат: " & strResult, vbInformation, "Как в предложении"
End Sub