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

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

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

End Sub