Помогите с VBA

пацантрэ, помогите.
задали тут в VBA сделать.

помогите с кодом, кому не сложно.

вот что написал я, но это не катит..

Private Sub proizvchisla_Click()

Dim A As Integer, B As Integer, C As Integer
Dim D As Integer, E As String, N As String
Dim x As Integer, y As Integer, z As Integer
Dim k As String, l As String, m As String
A = Range("C1")
B = Range("C2")
C = Range("C3")

If A<0 then
x=0
else
if A>=0 then
x=1
else
If B<0 then
y=0
else
if B>=0 then
y=1
else
If C<0 then
z=0
else
if C>=0 then
z=1
end if
end if
end if
end if
end if
end if
D=x+y+z


if A>=0 then
A=k
else
if B>=0 then
B=l
else
if C>=0 then
c=m
end if
end if
end if
E=k+l+m
F=k*l*m


Range("D1") = D
Range("D2") = E
Range("D3") = N

End Sub

 

Чувак только не говори что у тебя специальность IT.

 

ты бы код в коде забыл бы , школьник что ль?