Разроботать проект, позволяющий вычислить значение функции у в зависимости от ввееденного значения переменной x/ - VB

Формулировка задачи:

13. Разработать проект, позволяющий вычислить значение функции у в зависимости от введенного значения переменной х. Y= 1+x^2,…x≥1 1-x,…x<1

Решение задачи: «Разроботать проект, позволяющий вычислить значение функции у в зависимости от ввееденного значения переменной x/»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim y As Single, x As Single
If IsNumeric(Text1) = False Then
MsgBox ("Vvedite 4islo!")
Exit Sub
End If
x = Text1
If x < 1 Then
y = 1 - x
Else
y = 1 + x ^ 2
End If
MsgBox (y)
End Sub
                        