---

Private Sub CommandButton1_Click()
    Dim x As Double
    Dim y As Double
    
    ' 1. Проверяем, ввел ли пользователь значение
    If Trim(TextBox1.Text) = "" Then
        MsgBox "Пожалуйста, введите значение X!", vbExclamation, "Внимание"
        Exit Sub
    End If
    
    ' 2. Проверяем, является ли введенное значение числом
    If IsNumeric(TextBox1.Text) Then
        x = CDbl(TextBox1.Text)
        
        ' 3. Ветвление по условию задачи № 5
        If x < -3 Then
            y = x ^ 2 - 5
        Else
            y = Sqr(x + 4)
        End If
        
        ' 4. Выводим результат во второе поле с округлением
        TextBox2.Text = Format(y, "0.0000")
    Else
        ' Если введены буквы или посторонние символы
        MsgBox "Ошибка! В поле 'X' должно быть введено число.", vbCritical, "Ошибка ввода"
        TextBox1.Text = ""
        TextBox2.Text = ""
    End If
End Sub