Excel VBA Макросы: Решение системы уравнений

[Бур]

Нужно написать программу для решения системы уравнений y={x+10, если x<0 ; 3x, если 0≤x≤1 ; x², если x>1
Значение Х вводится произвольно.