---

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. Проверяем интервалы условия Задачи №19
        If x < -3 Then
            ' Ветвь 1: Y = X^4
            y = x ^ 4
            TextBox2.Text = Format(y, "0.0000")
            
        ElseIf x >= -3 And x < 0 Then
            ' Ветвь 2: Y = 2 * tg(X)
            ' Примечание: В VBA функция Tan(x) принимает значение в радианах
            y = 2 * Tan(x)
            TextBox2.Text = Format(y, "0.0000")
            
        Else
            ' Для значений X >= 0 функция по условию системы не задана
            TextBox2.Text = "Не определено"
            MsgBox "Функция не задана для значений X >= 0!", vbInformation, "Диапазон не поддерживается"
        End If
        
    Else
        ' Ошибка в случае ввода нечисловых символов
        MsgBox "Некорректный ввод! Введите вещественное число.", vbCritical, "Ошибка"
        TextBox1.Text = ""
        TextBox2.Text = ""
    End If