Больно умный? Тогда теме место не здесь, а на форуме философов. Там таких очень много. Зайди , своих сородичей увидишь.

Значит, здесь мне не помогут

Ну нужно было так сразу и   написать.)

Я помощи попросила ,   а не обсуждение темы которую я написал

Я в этом плохо разбираюсь

Здравствуйте! Помогите  пожалуйста. Что не     так?
Sub Лист4_Кнопка1_Щелчок()
Dim y, x As Single 'Описание  пременных
x = InputBox("vvedi x") 'Ввод с клавиатуры
If x > 10 Then y = x * x Else
If 0 <= x <= 10 Then y = Sqr(x) Else
y = -x
Cells(1, 1) = "Дано:": Cells(2, 1) = "x=": Cells(2, 2) = x
Cells(3, 1) = "Решение:": Cells(4, 1) = "y=": Cells(4, 2) = x
End Sub