---

Sub CalculateY()
    Dim x As Double
    Dim y As Double
    Dim inputStr As String
    
    ' Запрос ввода значения X у пользователя
    inputStr = InputBox("Введите значение X:", "Ввод данных")
    
    ' Проверка, что пользователь ввел число, а не нажал отмену
    If inputStr = "" Then Exit Sub
    x = CDbl(inputStr)
    
    ' Ветвление по условию задачи
    If x < -3 Then
        y = x ^ 2 - 5
    Else
        y = Sqr(x + 4)
    End If
    
    ' Вывод результата на экран
    MsgBox "При X = " & x & vbCrLf & "Значение Y = " & y, vbInformation, "Результат"