Программирование в VBA. Помогите, что тут не верно? (исправить) как надо записать эту задачку!?
Sub z4_1()

Dim x As Single
Dim y As Single
x = InputBox("vvedi x")
y = 0
If x < 0 Then
y = 1 - (x)
End If

End Sub

Sub z4_1()     Dim x As Single      Dim y As Single      x = InputBox("vvedi x")      If x < -1 Then             y=0      Else             y = 1 - Abs(x)      End If      MsgBox y End Sub