---

Private Sub CommandButton1_Click()
    Dim x As Double
    Dim y As Double
    
    ' Считываем X из первого поля
    x = Val(TextBox1.Text)
    
    ' Вычисляем по условию
    If x < -3 Then
        y = x ^ 4
    ElseIf x < 0 Then
        y = 2 * Tan(x)
    Else
        TextBox2.Text = "Нет решения"
        Exit Sub
    End If
    
    ' Выводим результат во второе поле
    TextBox2.Text = y
End Sub